Rövarspråket

Rövarspråketは、アストリッド・リンドグレンによるKalle Blomkvistに関する本からのスウェーデンの子供たちが演じる単語ゲームです。

基本的なルールは次のとおりです（Wikipediaより）：

• すべての子音（発音ではなくスペルの問題）が2倍になり、その間にoが挿入されます。
• 母音はそのまま残されます。

いくつかの例：

• 「hello」->「hohelollolo」
• "Minsvävareärfull medål"-> "MoMinonsosvovävovaroreärorfofulollol momedodålol"

スウェーデン語の子音は英語のものと同じなので、プログラムはスウェーデン語と英語の両方のエントリで動作するはずです。

この場合、文字「y」は子音と見なされます-ほとんどの場合そうです。

あなたのタスク：

関数またはstdinを介して入力されたスウェーデン語の文字列を、同等のRövarspråketに変換するプログラムを作成します。バイト単位の最短回答が勝ちます！

網膜、14 + 5 = 19バイト

Retinaは、本質的に.NET正規表現であり、オーバーヘッドを最小限に抑えた言語です。このプログラムのコードは、2つのファイルで構成されています。

i`[b-z-[eiou]]

$0o$0

これにより、STDINの入力が読み取られ、出力がSTDOUTに出力されます。

ファイルpattern.rgxとを呼び出すとreplacement.rpl、次のようにプログラムを実行できます。

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

説明

これは非常に簡単ですが、とにかく説明を追加します（主にRetinaの動作について）。Retinaが2つのファイルで呼び出された場合、最初のファイルが正規表現で、2番目のファイルがパターンである「置換モード」で動作すると自動的に想定されます。

RetinaはRegexOptions、正規表現`の前に構成文字列を追加することで構成できます（これには他のオプションも含まれます）。この場合、私はそれを与えるだけですiケース非感受性のための通常の正規表現修飾子です。

正規表現自体に関しては、.NETの文字クラス減算を使用して、ASCII範囲の子音と一致します。次に、置換はo、間に2回だけマッチを書き戻します。

Unix KSH 27 28 32 27バイトを使用 （またはsedコマンド内のみをカウントする場合は21）

他の提案のおかげで:)感謝します。

..私はこれに取りかかりました：

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

（スペースとスウェーデン語の文字に使用できます）

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バイト

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

これは、STDINから読み取り、STDOUTに出力する完全なプログラムです。任意のUnicode入力に対して機能し、次の42文字を子音として扱います。

BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz

ここでテストしてください。

説明

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バイト

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

関数も受け入れられることを思い出させてくれたMasterzaghと、キャプチャせずに後方参照に関する正規表現のヒントをありがとう！

入出力付きのより長いバージョン：

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

文字列を入力するプロンプトボックスを表示し、Rövarspråket出力を含むダイアログを表示します。コードは正規表現を使用して子音を2倍にし、を挿入しoます。

Mathematica、84 73 72バイト

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

説明：

• RegularExpression@"(?i)[BCDFGHJ-NP-TV-Z]" 大文字と小文字を区別せずにすべての子音に一致する正規表現です。
• a:*..*:>a<>"o"<>a これらの子音をバインドする遅延ルールを作成します aそれをに置き換え、それ自体に囲まれます。
• 最後に、StringReplace[#,*..*]&引数で一致するすべての文字にそのルールを適用する純粋な関数を作成します。

ジュリア、46 44バイト

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

これにより、単一の文字列入力を受け取り、同等のRövarspråketを出力する匿名関数が作成されます。それを呼び出すには、名前を付けます、例えばf=t->...ます。

ここでは、カンマの後のスペースを除いて、実際にはあまりゴルフはされていませんreplace()。

ここでは、replace()関数で3つの引数を使用しています：入力文字列、部分文字列を識別するための正規表現、および置換。Juliaはで正規表現パターンを示しr"..."ます。i最後に追加すると、大文字と小文字が区別されなくなります。この特定の正規表現は子音に一致します。関数が置換に使用される場合、出力は一致した各部分文字列に適用される関数です。ここで使用している関数は、Juliaで文字列の連結を実行するため、文字列sを受け取り、を返します。したがって、最終結果は、それぞれの子音が2つの「o」で挟まれた入力文字列になります。sos*

例：

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"

結果を返すのではなく印刷する必要がある場合、これは9バイト長くなります。OPからの確認を待っています。

編集： MartinBüttnerのおかげで2バイト保存されました！

Haskell、81バイト

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

使用法：f "Hello there!"-> "HoHelollolo tothoherore!"。

高価ななしで子音のリストを巧みに作成することはできませんimport。小文字にチェックする文字を回すだけでも、大文字と小文字の両方の子音をリストするよりも多くのバイトが必要です。

Java 8、45

ラムダ関数として使用します。正規表現を使用します。

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

ここで試してみてください

Perl、33バイト

この答えは、ほとんどが正規表現のみで、I / Oを実行するための少量の追加コードがあります。

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

Perlの正規表現を使用してからしばらく経っているので、これはおそらく改善できるでしょう。

$_=<>;                              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（ideone.comバージョン）-133

わかりました、これは巨大です。しかし、Cには正規表現がありません。短くすることができるものを見つけたら教えてください...

#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);}

Windowsバッチ、235バイト

@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%

使用法：

script.bat hello

出力：

hohelollolo

なぜdを "aoui"に設定しなかったのか不思議に思われるかもしれません。動作するはずのすべてが、バッチで動作するわけではありません。スクリプトは1ワードの文字を処理します（キーボードに表示されるとおり）。スクリプトを実行するには、まだ存在するすべてのスペースと改行が必要です。

Windows XP以降が必要です。Windows 8以降ではテストされていません。

PowerShell-35バイト

PowerShellがこれらでも競合することがあることを示すために、MartinBüttnerのRetinaの回答から恥知らずに盗まれた正規表現を使用して：

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

stdinからの文字列入力を受け入れます

Pyth-28バイト

これは、セット単位の差を使用してオンザフライで子音リストを生成することにより、明白な方法で機能します。

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

説明はすぐに来ます。

ここで試してみてください。

クリップ10、30

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

基本的な正規表現の置換。

ピス、25 24 23

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

ここで実行します。

Python、61

文字クラスの結合や減算を機能させることができなかったため、Pythonにその機能があるとは思わない。代わりに負の先読みを使用する必要がありました。

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

ここで実行：http : //repl.it/fQ5

逆へのリンク：https : //codegolf.stackexchange.com/a/48182/34718

K、38文字

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バイト

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

Kが正規表現を欠いていることを考えれば、簡単な解決策はかなり競争力があるように思えます。無視された母音のルックアップテーブルで各文字が見つかったかどうかに基づいて、「XoX」フォームと「X」フォームを選択し、結果のリストを結合します。

ブラウザで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

（残念ながら、スタックオーバーフローはURLでアクセント記号付きの文字を許可しないため、クリック可能なリンクを提供できません）

Golfscript、35バイト

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

入力がスタック上にあることを期待します。入力あり（50バイト）：

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

スウェーデンのヴォベルå、ä、öで動作します。

Sed（コマンドライン上）、28バイト

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

テキストをパイプで入力するか、直接入力します。単独のsedコードは22バイトです。

R、45文字

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

単純な正規表現。stdinから読み取ります。（引数名の部分一致のおかげで）のi=T略ignore.case=TRUEで、gsub大文字と小文字を区別しません。

使用法：

> 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"

<> <（魚）、64バイト

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

最短の答えではありませんが、<> <でプログラミングの課題を楽しんでいます

ここで試してみてください

golflua、36バイト

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

単純なパターンマッチング：stdinを取得してから、非母音を検索し（%W英数字以外の文字を処理します）o、2つの置換の間に挿入します。悲しいことに、書き込み（つまりw(I.r():g(....))）内でこれをすべて実行すると、挿入数も出力されますが、3文字は節約されます。Luaに相当するものは

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

REXX、107バイト

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

「MoMinonsosvovävovaroreärorfofulollol momedodålol」

JavaScript 43

関数の構文を保存してくれた@Masterzaghに感謝します。

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

JavaScript 62

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