Rövarspråket

Rövarspråket là một trò chơi chữ do trẻ em Thụy Điển chơi, từ những cuốn sách về Kalle Blomkvist của Astrid Lindgren.

Các quy tắc cơ bản như sau (từ Wikipedia):

• Mỗi phụ âm (vấn đề chính tả, không phát âm) được nhân đôi và một o được chèn ở giữa.
• Nguyên âm được giữ nguyên.

Một vài ví dụ:

• "xin chào" -> "hohelollolo"
• "Min Svävare är full med ål" -> "MoMinon sosvovävovarore äror fofulollol momedod ålol"

Phụ âm Thụy Điển giống như phụ âm tiếng Anh, vì vậy chương trình nên hoạt động với cả mục tiếng Thụy Điển và tiếng Anh.

Chữ "y" được lấy làm phụ âm trong trường hợp này - như hầu hết thời gian.

Nhiệm vụ của bạn:

Viết chương trình chuyển đổi một chuỗi các chữ cái Thụy Điển, được nhập thông qua một hàm hoặc thông qua stdin, tương đương với Rövarspråket của nó. Câu trả lời ngắn nhất trong byte chiến thắng!

Võng mạc , 14 + 5 = 19 byte

Retina là một ngôn ngữ về cơ bản chỉ là .NET regex với càng ít chi phí càng tốt. Mã cho chương trình này bao gồm hai tệp:

i`[b-z-[eiou]]

$0o$0

Cái này đọc đầu vào trên STDIN và in đầu ra thành STDOUT.

Nếu bạn gọi các tập tin pattern.rgx và replacement.rpl, bạn có thể chạy chương trình đơn giản như

echo "hello" | ./Retina pattern.rgx replacement.rpl

Giải trình

Điều này khá đơn giản, nhưng hãy để tôi thêm một số lời giải thích nào (chủ yếu là về cách Retina hoạt động). Nếu Retina được gọi với 2 tệp, nó sẽ tự động được coi là hoạt động trong "Chế độ thay thế", trong đó tệp đầu tiên là regex và tệp thứ hai là mẫu.

Retina có thể được cấu hình (bao gồm RegexOptionsvà các tùy chọn khác) bằng cách thêm vào biểu thức chính quy `và chuỗi cấu hình. Trong trường hợp này tôi chỉ đưa ra nói là công cụ sửa đổi regex bình thường cho trường hợp không nhạy cảm.

Đối với chính regex, nó sử dụng phép trừ lớp ký tự của .NET để khớp với bất kỳ phụ âm nào trong phạm vi ASCII. Sự thay thế sau đó chỉ cần viết lại trận đấu hai lần với một oở giữa.

Sử dụng Unix KSH 27 28 32 27 byte (hoặc 21 nếu chúng ta chỉ tính bên trong lệnh sed)

Nhờ những gợi ý của người khác :) Đánh giá cao.

.. Tôi đã xuống đây:

sed 's/[^AEIOUÅÄÖ ]/&o&/ig'

(được phép cho không gian và ký tự Thụy Điển)

echo "hello" | sed 's/[BCDFGHJ-NP-TV-Z]/&o&/ig'
hohelollolo
echo "HELLO" | sed 's/[BCDFGHJ-NP-TV-Z]/&o&/ig'
HoHELoLLoLO
echo "QuIcKlY Now" | sed 's/[BCDFGHJ-NP-TV-Z]/&o&/ig'
QoQuIcocKoKlolYoY NoNowow

CJam, 32 30 byte

q{_eu'[,66>"EIOU"-#)g{'o1$}*}/

Đây là một chương trình đọc toàn bộ từ STDIN và in sang STDOUT. Nó hoạt động cho đầu vào Unicode tùy ý và coi 42 ký tự sau đây là phụ âm:

BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz

Kiểm tra nó ở đây.

Giải trình

q                              "Slurp STDIN.";
 {                          }/ "For each character...";
  _eu                          "Duplicate and convert to upper case.";
     '[,66>                    "Get a string from B to Z using range and slice.";
           "EIOU"-             "Remove the remaining four vowels.";
                  #            "Find the position of the character in this string or
                                -1 if the character can't be found.";
                   )g          "Increment, take signum, which gives 1 for consonants, 
                                and 0 otherwise.";
                     {    }*   "Repeat this block that many times, i.e. do nothing for
                                non-consonants.";
                      'o       "Push an 'o'.";
                        1$     "Copy the current character.";

JavaScript, 59 57 55 44 byte

s=>s.replace(/(?![eiou])[b-z]/gi,"$&o$&")

Cảm ơn Masterzagh đã nhắc nhở tôi rằng một chức năng cũng sẽ được chấp nhận và cho mẹo regex của anh ấy liên quan đến phản hồi mà không cần nắm bắt!

Phiên bản dài hơn với đầu vào / đầu ra:

alert(prompt().replace(/(?![eiou])[b-z]/gi,"$&o$&"));

Hiển thị hộp nhắc để nhập chuỗi, sau đó hiển thị hộp thoại chứa đầu ra Rövarspråket. Mã này sử dụng biểu thức chính để nhân đôi phụ âm và chèn os.

Toán học, 84 73 72 byte

StringReplace[#,a:RegularExpression@"(?i)[BCDFGHJ-NP-TV-Z]":>a<>"o"<>a]&

Giải trình:

• RegularExpression@"(?i)[BCDFGHJ-NP-TV-Z]" là một regex phù hợp với tất cả các phụ âm không phân biệt chữ hoa chữ thường.
• a:*..*:>a<>"o"<>a tạo ra một quy tắc trì hoãn để ràng buộc những phụ âm đó vào a và thay thế nó bằng và được bao quanh bởi chính nó.
• Cuối cùng, StringReplace[#,*..*]&tạo một hàm thuần áp dụng quy tắc đó cho mọi chữ cái phù hợp trong đối số của nó.

Julia, 46 44 byte

t->replace(t,r"(?![eiou])[b-z]"i,s->s*"o"*s)

Điều này tạo ra một hàm ẩn danh nhận một đầu vào chuỗi đơn và in tương đương Rövarspråket. Để gọi nó, đặt tên cho nó, vdf=t->... .

Không có nhiều đã thực sự được chơi golf ở đây, ngoại trừ không gian sau dấu phẩy ở replace() .

Ở đây chúng tôi đang sử dụng 3 đối số trong replace()hàm: chuỗi đầu vào, biểu thức chính quy để xác định các chuỗi con và thay thế. Julia biểu thị các mẫu biểu thức chính quy bằng cách r"...". Thêm ivào cuối làm cho nó không nhạy cảm. Regex đặc biệt này phù hợp với phụ âm. Nếu một chức năng được sử dụng để thay thế, đầu ra là chức năng đó được áp dụng cho từng chuỗi con phù hợp. Hàm chúng ta đang sử dụng ở đây lấy một chuỗi svà trả về sos, vì *thực hiện nối chuỗi trong Julia. Do đó, kết quả cuối cùng là chuỗi đầu vào với mỗi phụ âm được nhân đôi với "o" ở giữa.

Ví dụ:

julia> f("Min svävare är full med ål")
"MoMinon sosvovävovarore äror fofulollol momedod ålol"

julia> f("hello")
"hohelollolo"

julia> f("Rövarspråket")
"RoRövovarorsospoproråkoketot"

Lưu ý rằng điều này sẽ dài hơn 9 byte nếu chúng ta phải in kết quả thay vì trả lại. Đang chờ xác nhận từ OP.

Chỉnh sửa: Đã lưu 2 byte nhờ Martin Büttner!

Haskell, 81 byte

x n|elem n"bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ"=[n,'o',n]|1<2=[n]
f=(>>=x)

Sử dụng: f "Hello there!" -> "HoHelollolo tothoherore!".

Tôi không thể khéo léo xây dựng danh sách các phụ âm mà không cần imports đắt tiền . Ngay cả việc chuyển chữ cái để kiểm tra chữ thường cũng cần nhiều byte hơn là chỉ liệt kê cả phụ âm chữ hoa và chữ thường.

Java 8, 45

Sử dụng như một chức năng lambda. Sử dụng biểu thức chính quy.

a->a.replaceAll("(?i)[b-z&&[^eiou]]","$0o$0")

Thử ở đây

Perl, 33 byte

Câu trả lời này chủ yếu chỉ dành cho regex, với một lượng nhỏ mã bổ sung để thực hiện I / O.

$_=<>;s/[^aeiou\W]/$&o$&/gi;print

Đã được một thời gian kể từ khi tôi sử dụng các biểu thức Perl, vì vậy điều này có thể được cải thiện.

$_=<>;                              This takes input from STDIN `<>` and stores
                                    it into the default variable $_
      s/          /     /gi;        This is a case-(i)nsentive, (g)lobal, 
                                    (s)ubstitution regex.  Since no other
                                    variable is specified, it is applied to
                                    the default variable $_.
        [^aeiou\W]                  This matches any single character that 
                                    is a consonant, by using a double-
                                    negative ^\W to match only alphanumeric 
                                    characters excluding vowels.  Accented 
                                    vowels are not considered alphanumeric 
                                    by Perl.
                   $&o$&            This forms the replacement.  $& contains the 
                                    match (the consonant), so this replaces each 
                                    consonant with two copies of itself with 
                                    an 'o' in between.
                            print   This prints the result.  With no arguments, 
                                    it prints $_ by default.

C (phiên bản ideone.com) - 133

Ok, điều này là rất lớn. Nhưng C không có biểu thức chính quy. Xin vui lòng cho tôi biết nếu bạn thấy một cái gì đó có thể làm cho nó ngắn hơn ...

#define x (*c<66||*c>90)&&(*c<98||*c>122)||strchr("EIOUeiou",*c)?"":
c[2];main(){while(0<(*c=getchar()))printf("%s%s%s",c,x"o",x c);}

Batch Windows, 235 byte

@echo off
setlocal enabledelayedexpansion
set d=qwrtypsdfghjklzxcvbnm
set #=%1
:x
if defined # (
for /l %%i in (0,1,20)do (
set m=!d:~%%i,1!
if /i !m!==%#:~0,1% set g=!g!!m!o)
set g=!g!%#:~0,1%
set #=%#:~1%
goto x)
echo %g%

Sử dụng:

script.bat hello

Đầu ra:

hohelollolo

Bạn có thể tự hỏi tại sao tôi không đặt d thành "aoui", kiểm tra không bằng yêu cầu thoát ra khỏi một vòng lặp. Không phải tất cả mọi thứ nên làm việc, làm việc, trong lô. Kịch bản xử lý 1 từ ký tự [khi chúng xuất hiện trên bàn phím của bạn]. Tất cả các không gian và dòng mới vẫn còn hiện tại được yêu cầu để tập lệnh chạy.

Yêu cầu Windows XP trở lên. Không được thử nghiệm trong Windows 8 trở lên.

PowerShell - 35 byte

Chỉ để cho thấy rằng PowerShell đôi khi cũng có thể cạnh tranh trong những điều này, và với regex bị đánh cắp một cách đáng xấu hổ từ câu trả lời Retina của Martin Büttner:

%{$_-replace'[b-z-[eiou]]','$0o$0'}

chấp nhận đầu vào chuỗi từ stdin

Pyth - 28 byte

Điều này hoạt động theo cách rõ ràng bằng cách tạo danh sách phụ âm một cách nhanh chóng bằng cách sử dụng sự khác biệt theo tập hợp.

FNzpk+N?+\oN}rNZ-{G{"aeiou"k

Giải thích đến sớm.

Hãy thử nó ở đây .

Clip 10 , 30

gx"((?i)[b-z&&[^eiou]])""$1o$1

Thay thế regex cơ bản.

Bình thường, 25 24 23

sm+d*+\od}rd0-G"aeoui"z

Chạy nó ở đây.

Con trăn, 61

Tôi không thể làm cho một liên minh lớp nhân vật hoặc phép trừ hoạt động, và vì vậy tôi không nghĩ Python có tính năng đó. Tôi đã phải sử dụng một cái nhìn tiêu cực thay thế.

import re;f=lambda s:re.sub('(?i)(?![eiou])([b-z])',r'\1o\1',s)

Chạy nó ở đây: http://repl.it/fQ5

Liên kết đến nghịch đảo: /codegolf//a/48182/34718

K, 38 ký tự

f:{,/(1+2*~(_x)in"aeiouåäö ")#'x,'"o"}

-1 f"Min svävare är full med ål";
MoMinon sosvovävovarore äror fofulollol momedod ålol

K, 31 byte

,/{(x,"o",x;x)9>" aeiouåäö"?x}'

Một giải pháp đơn giản có vẻ khá cạnh tranh khi K thiếu regexes. Chọn giữa biểu mẫu "XoX" và biểu mẫu "X" dựa trên việc mỗi ký tự được tìm thấy trong bảng tra cứu các nguyên âm bị bỏ qua và tham gia các danh sách kết quả.

Bạn có thể dùng thử trong trình duyệt của mình bằng oK :

http://johnearnest.github.io/ok/index.html?run=%20%2C%2F%7B(x%2C%22o%22%2Cx%3Bx)9%3E%22%20aeiouåäö%22%3Fx%7D'%22Min%20svävare%20är%20full%20med%20ål%22

(Thật không may, tôi không thể cung cấp một liên kết có thể nhấp vì tràn ngăn xếp không xuất hiện để cho phép các ký tự có dấu trong URL)

Golf, 35 byte

{."aeiouåäö\n "?-1={."o"\}{}if}%

Dự kiến ​​đầu vào là trên ngăn xếp. Với đầu vào (50 byte):

"#{STDIN.gets}"{."aeiouåäö\n "?-1={."o"\}{}if}%

Làm việc với các vovels Thụy Điển å, ä và ö.

Sed (trên dòng lệnh), 28 byte

sed 's/\([^aeiou]\)/\1o\1/g'

Hoặc là dẫn văn bản vào hoặc gõ nó trực tiếp. Chỉ riêng mã sed là 22 byte.

R, 45 ký tự

gsub("([^aeiouäöå ])","\\1o\\1",readline(),i=T)

Regex đơn giản. Đọc từ stdin. i=Tlà viết tắt của ignore.case=TRUE(nhờ khớp một phần tên đối số), làm cho gsubtrường hợp không nhạy cảm.

Sử dụng:

> gsub("([^aeiouäöå ])","\\1o\\1",readline(),i=T)
Min svävare är full med ål
[1] "MoMinon sosvovävovarore äror fofulollol momedod ålol"
> gsub("([^aeiouäöå ])","\\1o\\1",readline(),i=T)
hello
[1] "hohelollolo"
> gsub("([^aeiouäöå ])","\\1o\\1",readline(),i=T)
hElLo
[1] "hohElolLoLo"

<> <(Cá), 64 byte

>" oieauåäöOIEAUÅÄÖ"0i:1+?!;01.
 :&=?\     l?!v&
^[0o&<&o"o"o:&<

Đó không phải là câu trả lời ngắn nhất nhưng tôi thích thử thách lập trình trong <> <

Dùng thử ở đây

golflua, 36 byte

B=I.r():g("[^aeiou%W ]","%1o%1")w(B)

Khớp mẫu đơn giản: lấy stdin, sau đó tìm các nguyên âm không ( %Wchăm sóc các ký tự không chữ và số) & chèn một ogiữa hai thay thế. Đáng buồn thay, làm tất cả điều này trong phần ghi (nghĩa là w(I.r():g(....))) cũng tạo ra số lần chèn, mặc dù nó đã lưu 3 ký tự. Tương đương Lua sẽ là

line = io.read()
rovar = line:gsub("[^aeiou%W ]","%1o%1")
print(rovar)

REXX, 107 byte

parse arg s
v='aeiouåäö '
o=
do until s=''
  parse var s l 2 s
  if verify(l,v)>0 then l=l'o'l
  o=o||l
  end
say o

"MoMinon sosvovävovarore äror fofulollol momedod ålol"

JavaScript 43

Cảm ơn @Masterzagh vì đã lưu vào cú pháp hàm.

x=>x.replace(/[bcdfghj-np-tv-z]/gi,"$&o$&")

JavaScript 62

function E(x){return x.replace(/[bcdfghj-np-tv-z]/gi,"$&o$&")}