Шеффол тво волес уреунд!

42

Принимая во внимание входную строку, выходной , что строка со всеми гласные a, e, i, oи uвыгружена в случайном порядке друг между другом.

Например, в строке this is a test, есть 4 гласных: [i, i, a, e]. [a, i, e, i]Таким образом, правильная перетасовка этих гласных может привести к получению результата thas is e tist.

О перетасовке

Все тасования будут одинаково вероятны, если мы будем считать равные гласные разными . Для приведенного выше примера возможны эти 24 шаффла:

[i 1 , i 2 , a, e] [i 1 , i 2 , e, a] [i 1 , a, i 2 , e] [i 1 , a, e, i 2 ]
[i 1 , e, i 2 , a] [i 1 , e, a, i 2 ] [i 2 , i 1 , a, e] [i 2 , i 1 , e, a]
[i 2 , a, i 1 , e] [i 2 , a, e, i 1 ] [i 2 , e, i 1 , a] [i 2 , e, a, i 1 ]
[a, i 1 , i 2 , e] [a, i 1 , e, i 2 ] [a, i 2 , i 1 , e] [a, i 2 , e, i 1 ]
[a, e, i 1 , i 2 ] [a, e, i 2 , i 1 ] [e, i 1 , i 2 , a] [e, i 1 , a, i 2 ]
[e, i 2 , i 1 , a] [e, i 2 , a, i 1 ] [e, a, i 1 , i 2 ] [e, a, i 2 , i 1 ]

Каждый из них должен быть одинаково вероятным.

Вы не можете использовать случайные тасовки всей строки, пока не найдете тот, в котором все гласные находятся в нужном месте. Короче говоря, время выполнения вашего кода должно быть постоянным, если ввод постоянный.

Входы и выходы

  • Вы можете предположить, что все буквы на входе будут строчными или прописными. Вы также можете поддерживать смешанный корпус, но это не даст вам никакого бонуса.

  • Ввод всегда будет состоять из печатных символов ASCII. Все символы, которые находятся на входе, должны быть на выходе, только гласные должны быть перемешаны и ничего больше.

  • Ввод может быть пустым. Нет никакой гарантии, что входные данные будут содержать хотя бы одну гласную или хотя бы одну не гласную.

  • Вы можете использовать входные данные STDINкак параметр функции или что-либо подобное.

  • Вы можете распечатать вывод STDOUT, вернуть его из функции или чего-либо подобного.

Контрольные примеры

Первая строка - это заданный ввод. Вторая строка - один из возможных выходов.

<empty string>
<empty string>

a
a

cwm
cwm

the quick brown fox jumps over the lazy dog.
tho qeuck brewn fax jumps ovir the lozy dog.

abcdefghijklmnopqrstuvwxyz
abcdefghujklmnipqrstovwxyz

programming puzzles & code golf
pregromming pezzlos & coda gulf

fatalize
fitaleza

martin ender
mirten ander

счет

Это , так называемый футболист .

Fatalize
источник
17
Вы англичане / американцы, и вам не хватает yгласных
слов
6
@KevinCruijssen Я не являюсь носителем языка, и я бы тоже считал yего гласным, но последний вызов, на котором я сказал, yбыл гласным, и меня спросили, почему я выбрал это!
Роковая
7
@KevinCruijssen, буквы не гласные: звуки есть.
Питер Тейлор
6
+1 за cwm. Поддержание альпинизма и / или валлийского языка в живых;)
Бета-распад
2
@KevinCruijssen не имеет совместный ш о VO ш ELS, которые обычно не считается так.
CorsiKa

Ответы:

13

Желе , 15 байт

f€“¡ẎṢɱ»ðœpżFẊ¥

Попробуйте онлайн!

Как это работает

f€“¡ẎṢɱ»ðœpżFẊ¥  Main link. Argument: s (string)

  “¡ẎṢɱ»         Yield "aeuoi"; concatenate "a" with the dictionary word "euoi".
f€               Filter each character in s by presence in "aeuoi".
                 This yields A, an array of singleton and empty strings.
        ð        Begin a new, dyadic chain. Left argument: A. Right argument: s
         œp      Partition s at truthy values (singleton strings of vowels) in A.
            FẊ¥  Flatten and shuffle A. This yields a permutation of the vowels.
           ż     Zip the partition of consonants with the shuffled vowels.
Деннис
источник
Почему это кажется довольно медленным по сравнению с другими ответами?
Роковая
Jelly импортирует SymPy и NumPy раньше всего. Эта программа и пустая программа имеют примерно одинаковое время выполнения.
Деннис
15
Прежде чем кто-либо спросит, euoi - это крик страстного восторга в древних баховских приключениях .
Деннис
5
@Dennis Из любопытства, почему Jelly встроил словарные слова? Откуда он берет эти словарные слова?
Кевин Круйссен
1
@KevinCruijssen Когда я проектировал Jelly, уже было несколько языков для игры в гольф, в которых использовался shoco , и просто использование английского словаря казалось хорошим способом улучшить эту идею. Я использовал файл /usr/share/dict/wordsсо своего компьютера и включил его в интерпретатор Jelly.
Деннис
17

R 92 91

Пока не могу комментировать, поэтому я добавляю свой собственный ответ, хотя и очень похожий на ответ @ Andreï Kostyrka (хотите верьте, хотите нет, но придумал это самостоятельно).

s=strsplit(readline(),"")[[1]];v=s%in%c("a","e","i","o","u");s[v]=sample(s[v]);cat(s,sep="")

Ungolfed

s=strsplit(readline(),"")[[1]]    # Read input and store as a vector
v=s%in%c("a","e","i","o","u")     # Return TRUE/FALSE vector if vowel
s[v]=sample(s[v])                 # Replace vector if TRUE with a random permutation of vowels
cat(s,sep="")                     # Print concatenated vector

Сохранено один байт благодаря @Vlo

s=strsplit(readline(),"")[[1]];s[v]=sample(s[v<-s%in%c("a","e","i","o","u")]);cat(s,sep="")
Billywob
источник
5
Честно говоря, я не могу поверить. Просто шучу. Хороший трюк, чтобы сэкономить несколько байтов!
Андрей Костырка
Просто, если честно, я не краду твои идеи, чтобы развить мой ответ дальше.
Андрей Костырка
3
Хе-хе, должен получить их сладкие голоса, чтобы я мог прокомментировать;)
Billywob
Сохранить байт с s=strsplit(readline(),"")[[1]];s[v]=sample(s[v<-s%in%c("a","e","i","o","u")]);cat(s,sep="")
встроенным
Сохраните другой байт, используя el()вместо [[1]].
Андрей Костырка,
11

R, 99 98 89 байт

x=el(strsplit(readline(),""))
z=grepl("[aeiou]",x)
x[z]=x[sample(which(z))]
cat(x,sep="")

Кажется, это первое удобочитаемое решение! Спасибо Джузеппе за сохранение 9 байт!

Тестовые случаи:

tho qaeck bruwn fux jemps over tho lozy dig.
progremmang pozzlos & cide gulf

Кажется, что нет никакого способа сделать внутреннее присвоение переменной (внутри, вроде бы cat), и снова некоторые люди собираются доказать, что я не прав ...

Андрей Костырка
источник
2
letters[c(1,5,9,15,21)]на 1 байт длиннее, и OEIS A161536 и A215721, похоже, тоже мало помогают.
Андрей Костырка
Не z=grepl("[aeiou]",x)будет короче?
Джузеппе
@ Giuseppe Ты сделал это снова! Спасибо.
Андрей Костырка
10

CJam, 23 байта

lee_{"aeiou"&},_mrerWf=

Попробуйте онлайн!

объяснение

l            e# Read input, e.g. "foobar".
ee           e# Enumerate, e.g. [[0 'f] [1 'o] [2 'o] [3 'b] [4 'a] [5 'r]].
_            e# Duplicate.
{"aeiou"&},  e# Keep those which have a non-empty intersection with this string
             e# of vowels, i.e. those where the enumerated character is a vowel.
             e# E.g. [[1 'o] [2 'o] [4 'a]].
_            e# Duplicate.
mr           e# Shuffle the copy. E.g. [[2 'o] [4 'a] [1 'o]].
er           e# Transliteration. Replaces elements from the sorted copy with
             e# the corresponding element in the shuffled copy in the original list.
             e# [[0 'f] [2 'o] [4 'a] [3 'b] [1 'o] [5 'r]].
Wf=          e# Get the last element of each pair, e.g. "foabor".
Мартин Эндер
источник
5

05AB1E , 17 байт

žMÃ.r`¹vžMyå_iy}?

объяснение

žMÃ                # get all vowels from input
   .r`             # randomize them and place on stack
      ¹v           # for each in input
        žMyå_i }   # if it is not a vowel
              y    # push it on stack
                ?  # print top of stack

Попробуйте онлайн!

Emigna
источник
5

Python 3, 109 байт

Поддерживает только строчные гласные.

Спасибо @Alissa за сохранение дополнительного байта.

import re,random
def f(s):r='[aeiou]';a=re.findall(r,s);random.shuffle(a);return re.sub(r,lambda m:a.pop(),s)

Идео это!

Бета распад
источник
не будет ли короче, если это функция, принимающая строку и возвращающая эту строку с перемешанными гласными?
Алисса
@ Алисса Спасибо, это спасло один байт! : D
Бета-распад
не уверен, что это будет короче, но вы могли бы a.pop(random.randrange(0,len(a)))вместо того, чтобы перетасовать
Алисса
4

TSQL, 275 байт

Golfed:

DECLARE @ VARCHAR(99)='the quick brown fox jumps over the lazy dog.'

;WITH c as(SELECT LEFT(@,0)x,0i UNION ALL SELECT LEFT(substring(@,i+1,1),1),i+1FROM c
WHERE i<LEN(@)),d as(SELECT *,rank()over(order by newid())a,row_number()over(order by 1/0)b
FROM c WHERE x IN('a','e','i','o','u'))SELECT @=STUFF(@,d.i,1,e.x)FROM d,d e
WHERE d.a=e.b PRINT @

Ungolfed:

DECLARE @ VARCHAR(max)='the quick brown fox jumps over the lazy dog.'

;WITH c as
(
  SELECT LEFT(@,0)x,0i
  UNION ALL
  SELECT LEFT(substring(@,i+1,1),1),i+1
  FROM c
  WHERE i<LEN(@)
),d as
(
  SELECT 
    *,
    rank()over(order by newid())a,
    row_number()over(order by 1/0)b
  FROM c
  WHERE x IN('a','e','i','o','u')
)
SELECT @=STUFF(@,d.i,1,e.x)FROM d,d e
WHERE d.a=e.b
-- next row will be necessary in order to handle texts longer than 99 bytes
-- not included in the golfed version, also using varchar(max) instead of varchar(99)
OPTION(MAXRECURSION 0) 

PRINT @

скрипка

t-clausen.dk
источник
3

Perl, 38 байт

Включает +1 для -p

Беги с предложением на STDIN

vawols.pl <<< "programming puzzles & code golf"

vawols.pl:

#!/usr/bin/perl -p
@Q=/[aeiou]/g;s//splice@Q,rand@Q,1/eg
Тон Хоспел
источник
3

Java 7, 243 241 байт

import java.util.*;String c(char[]z){List l=new ArrayList();char i,c;for(i=0;i<z.length;i++)if("aeiou".indexOf(c=z[i])>=0){l.add(c);z[i]=0;}Collections.shuffle(l);String r="";for(i=0;i<z.length;i++)r+=z[i]<1?(char)l.remove(0):z[i];return r;}

Да, это, вероятно, может быть немного в гольфе, но в Java нет удобных встроенных программ для этого афаика .. Кроме того, я вроде забыл вариант массива codegolfed для Collections.shuffle..

Ungolfed и тестовые случаи:

Попробуй это здесь.

import java.util.*;
class M{
  static String c(char[] z){
    List l = new ArrayList();
    char i,
         c;
    for(i = 0; i < z.length; i++){
      if("aeiou".indexOf(c = z[i]) >= 0){
        l.add(c);
        z[i] = 0;
      }
    }
    Collections.shuffle(l);
    String r = "";
    for(i = 0; i < z.length; i++){
      r += z[i] < 1
               ? (char)l.remove(0)
               : z[i];
    }
    return r;
  }

  public static void main(String[] a){
    System.out.println(c("".toCharArray()));
    System.out.println(c("a".toCharArray()));
    System.out.println(c("cwm".toCharArray()));
    System.out.println(c("the quick brown fox jumps over the lazy dog.".toCharArray()));
    System.out.println(c("abcdefghijklmnopqrstuvwxyz".toCharArray()));
    System.out.println(c("programming puzzles & code golf".toCharArray()));
    System.out.println(c("fatalize".toCharArray()));
    System.out.println(c("martin ender".toCharArray()));
  }
}

Возможный вывод:

a
cwm
tha queck brown fox jumps evor tho lezy dig.
ebcdifghujklmnopqrstavwxyz
prigrommeng puzzlos & cade golf
fatelazi
mertan inder
Кевин Круйссен
источник
1
Как насчет повторного использования iво втором цикле?
Frozn
Я подумал «почему он не пошел с char [] вместо List», поэтому я начал, но нехватка Arrays.shuffleостановила меня прямо там ...
Оливье Грегуар
Побрили 6 персонажей с небольшими изменениями:import java.util.*;String c(char[]z){List l=new ArrayList();int i=0,j=z.length;for(;i<j;i++)if("aeiou".indexOf(z[i])>=0){l.add(z[i]);z[i]=0;}Collections.shuffle(l);String r="";for(i=0;i<j;i++)r+=z[i]<1?(char)l.remove(0):z[i];return r;}
durron597
3

Рубин 45 + 1 = 46 байт

+1 байт за -pфлаг

a=$_.scan(e=/[aeiou]/).shuffle
gsub(e){a.pop}
Иордания
источник
3

Брахилог , 39 байт

@eI:1aToS,I:2f@~:LcS,Tc
.'~e@V;
e.~e@V,

Попробуйте онлайн!

объяснение

  • Основной предикат:

    @eI        I is the list of chars of the input.
    :1aT       T is I where all vowels are replaced with free variables.
    oS,        S is T sorted (all free variables come first).
    I:2f       Find all vowels in I.
    @~         Shuffle them.
    :LcS,      This shuffle concatenated with L (whatever it may be) results in S.
                 This will unify the free variables in S with the shuffled vowels.
    Tc         Output is the concatenation of elements of T.
    
  • Предикат 1:

    .          Input = Output…
    '~e@V      …provided that it is not a vowel.
    ;          Otherwise Output is a free variable.
    
  • Предикат 2:

    e.         Output is an element of the input…
    ~e@V,      … and it is a vowel.
    
Fatalize
источник
3

Javascript (ES6), 78 76 байт

s=>s.replace(r=/[aeiou]/g,_=>l.pop(),l=s.match(r).sort(_=>Math.random()-.5))

Сохранено 2 байта благодаря апсиллерам

Альтернативная версия, предложенная апсиллерами (также 76 байтов)

s=>s.replace(r=/[aeiou]/g,[].pop.bind(s.match(r).sort(_=>Math.random()-.5)))

Тест

let f =
s=>s.replace(r=/[aeiou]/g,_=>l.pop(),l=s.match(r).sort(_=>Math.random()-.5))

console.log(f("the quick brown fox jumps over the lazy dog."))

Arnauld
источник
1
Не улучшение (точно такая же оценка), но забавное замечание, которое я нашел: отбросьте l=...полностью и используйте связанную функцию [].pop.bind(s.match(r).sort(_=>Math.random()-.5)))в качестве второго аргумента replace(вместо функции стрелки). Может быть, есть улучшение, которое можно найти на этом пути, но я еще не нашел его. Если бы вы использовали язык JS-superset, у которого есть оператор связывания ::, я думаю, вы могли бы это сделать (s.match(r).sort(_=>Math.random()-.5)))::pop.
Апсиллеры
3

MATL , 15 байт

tt11Y2m)tnZr7M(

Попробуйте онлайн!

объяснение

tt      % Take input string implicitly. Duplicate twice
11Y2    % Predefined string: 'aeiou'
m       % Logical index that contains true for chars of the input that are vowels
)       % Get those chars from the input string. Gives a substring formed by the
        % vowels in their input order
tnZr    % Random permutation of that substring. This is done via random sampling
        % of that many elements without replacement
7M      % Push logical index of vowel positions again
(       % Assign the shuffled vowels into the input string. Display implicitly
Луис Мендо
источник
3

Japt v2.0a0, 14 13 байт

ō²f\v
NÌr\v@o

Попытайся


объяснение

           :Implicit input of string U.
ö²         :Generate a random permutation of U.
  f\v      :Get all the vowels as an array.
\n         :Assign that array to U.
NÌ         :Get the last element in the array of inputs (i.e., the original value of U)
  r\v      :Replace each vowel.
     @o    :Pop the last element from the array assigned to U above.
мохнатый
источник
2

Pyth, 26 байт

J"[aeiou]"s.i:QJ3.Sf}TPtJQ

Программа, которая принимает ввод строки в кавычках и печатает перемешанную строку.

Попробуйте онлайн

Как это работает

J"[aeiou]"s.i:QJ3.Sf}TPtJQ  Program. Input: Q
J"[aeiou]"                  J="[aeiou]"
             :QJ3           Split Q on matches of regex J, removing vowels
                      PtJ   J[1:-1], yielding "aeiou"
                   f}T   Q  Filter Q on presence in above, yielding vowels
                 .S         Randomly shuffle vowels
           .i               Interleave non-vowel and vowel parts
          s                 Concatenate and implicitly print
TheBikingViking
источник
2

PHP, 144 129 байт

Использование строчных букв

$r=Aaeiou;$v=str_shuffle(preg_replace("#[^$r]+#",'',$a=$argv[1]));for(;$i<strlen($a);)echo strpos($r,$a[$i++])?$v[$j++]:$a[$i-1];

Объяснение:

$r="aeiou"; // set vowels

preg_replace("#[^$r]+#",'',$argv[1]) // find all vowels in input

$v=str_shuffle() // shuffle them

for(;$i<strlen($a);) // run through the text

strpos($r,$a[$i++])?$v[$j++]:$a[$i-1]; // if it's a vowel print the j-th shuffled vowel else print original text
крипто-
источник
2

На самом деле, 24 байта

;"aeiou";╗@s@`╜íu`░╚@♀+Σ

Попробуйте онлайн!

Объяснение:

;"aeiou";╗@s@`╜íu`░╚@♀+Σ
;                         dupe input
 "aeiou";╗                push vowels, store a copy in reg0
          @s              split one copy of input on vowels
            @`╜íu`░       take characters from other copy of input where
              ╜íu           the character is a vowel (1-based index of character in vowel string is non-zero)
                   ╚      shuffle the vowels
                    @♀+   interleave and concatenate pairs of strings
                       Σ  concatenate the strings
Мего
источник
2

Баш, 75 байт

paste -d '' <(tr aeoiu \\n<<<$1) <(grep -o \[aeiou]<<<$1|shuf)|paste -sd ''

Принимает строку в качестве аргумента и печатает результат в стандартный вывод.

Например

for x in "" "a" "cwm" \
         "the quick brown fox jumps over the lazy dog." \
         "abcdefghijklmnopqrstuvwxyz" \
         "programming puzzles & code golf" \
         "fatalize" "martin ender"; do
  echo "$x";. sheffle.sh "$x"; echo
done

печать

<blank line>
<blank line>

a
a

cwm
cwm

the quick brown fox jumps over the lazy dog.
tho quuck brown fix jamps ever the lozy dog.

abcdefghijklmnopqrstuvwxyz
ibcdefghajklmnopqrstuvwxyz

programming puzzles & code golf
progremmong pazzlus & cedo gilf

fatalize
fetilaza

martin ender
mertan endir
RICi
источник
2

Баш, 89

Предполагается, что все вводимые данные должны быть строчными.

a=`tee z|grep -o [aeiou]`
[ -n "$a" ]&&tr `tr -d \ <<<$a` `shuf -e $a|tr -d '
'`<z||cat z

источник
2

PowerShell v3 +, 155 99 байт

param([char[]]$n)$a=$n|?{$_-match'[aeiou]'}|sort{random};-join($n|%{if($_-in$a){$a[$i++]}else{$_}})

Большой реквизит @ Ben Owen для 56-байтового гольфа

Принимает ввод $n, ожидая все строчные буквы, сразу же бросает его как char-array.

Мы труба , что в Where-Objectпредложение , чтобы вытащить те элементы , которые -matchгласный, труба их Sort-Objectс {Get-Random}как механизм сортировки. Вызов Get-Randomбез квалификаторов вернет целое число между 0и [int32]::MaxValue- т. Е. Присваивает случайные веса каждому элементу на лету. Мы храним случайные гласные в $a.

Наконец, мы проходим $n. Для каждого элемента, |%{...}если текущий символ находится где-то -in $a, мы выводим следующий элемент $a, после увеличения $iв следующий раз. В противном случае мы выводим текущий символ. Это все заключено в параны и -joinобъединено в строку. Эта строка остается в конвейере, и вывод неявен при завершении программы.

Контрольные примеры

PS C:\Tools\Scripts\golfing> 'a','cwm','the quick brown fox jumps over the lazy dog.','abcdefghijklmnopqrstuvwxyz','programming puzzles & code golf','fatalize','martin ender'|%{.\vawols.ps1 $_}
a
cwm
thu qaeck brown fix jomps ovor thu lezy deg.
abcdofghejklmnupqrstivwxyz
prugrammong pizzles & code golf
fitaleza
mertin endar
AdmBorkBork
источник
Здесь вы можете сэкономить много байтов, перебирая $nсимволы и сопоставляя каждую гласную, чтобы charвместо нее вывести -array из гласных. Что-то вроде:$a=[char[]]$n|?{$_-match'[aeiou]'}|sort{random}
Бен Оуэн
@BenOwen Святой черт, да. Спасибо за 56-байтовый гольф. За свою жизнь я просто не мог придумать лучший способ построить $a.
AdmBorkBork
2

Python 3, 106 байт

Только строчные.

import re,random
def f(s):s=re.split('([aeiou])',s);v=s[1::2];random.shuffle(v);s[1::2]=v;return''.join(s)
Кен Джои Мошер
источник
1

PHP> = 5,3 , 139 136 байт (без ошибок)

array_map(function($a,$b){echo$a.$b;},preg_split("/[aeiou]/",$s=$argv[1]),str_split(str_shuffle(implode(preg_split("/[^aeiou]/",$s)))));
MonkeyZeus
источник
1

K (ок) , 29 байт

Решение:

{x[a:&x in"aeiou"]:x@(-#a)?a}

Попробуйте онлайн!

Примеры:

"pregrommeng pizzlas & codo gulf"
{x[a:&x in"aeiou"]:x@(-#a)?a}"programming puzzles & code golf"
"pregremmong puzzlos & coda gilf"
{x[a:&x in"aeiou"]:x@(-#a)?a}"programming puzzles & code golf"
"pregrommeng pazzlos & cidu golf"

Объяснение:

Найдите местоположения гласных и замените их гласными в случайном порядке.

{x[a:&x in"aeiou"]:x@(-#a)?a} / the solution
{                           } / anonymous function with input x
 x[              ]            / index into x at these indices
      x in"aeiou"             / is character a vowel
     &                        / indices where true
   a:                         / assign to add
                  :           / assign
                          ?a  / draw randomly from a
                     (   )    / do this together
                       #a     / count length of a
                      -       / negate (draws from list, no duplication)
                   x@         / apply these indices to input
streetster
источник
0

APL (Dyalog Unicode) , 21 байт

{⍵[?⍨≢⍵]}@{⍵∊'AEIOU'}

Попробуйте онлайн!

Предполагается в верхнем регистре.

Эрик Outgolfer
источник
Будет ли {⍵∊'AEIOU'}∊∘'AEIOU'работать?
Критиси Литос
@ Cowsquack Я так не думаю, с тех пор это будет проанализировано как ({⍵[?⍨≢⍵]}@∊)∘'AEIOU'.
Эрик Outgolfer