TUT 언어 번역기

텍스트는 서면 버전으로 번역 할 수 TUT 언어 (링크 된 기사에서 발췌) 다음 표에 주어진, 해당 "TUT 단어"로 각 문자를 대체하여 ^* :

a  e        h  hash     o  o        u  yu
b  bub      i  ay       p  pup      v  vuv
c  kut      j  jag      q  kwak     w  waks
d  dud      k  kak      r  rut      x  eks
e  i        l  lul      s  sus      y  yak
f  fuf      m  mum      t  tut      z  zuz
g  jug      n  nun            

* Exceptions: 
(1) Upper case letters have corresponding TUT words in upper case.
(2) A doubled letter becomes 'skwer' ('SKWER') followed by the TUT word for that letter.
    - An n-fold letter is treated as a number of doubles, followed by a single if needed.
    - To be considered a double or n-fold letter, the letters must be in the same case.
(3) 'rut' ('RUT') is replaced by 'rud' ('RUD') if immediately followed by 'dud' ('DUD'). 

다음과 같은 입출력 동작으로 프로그램을 작성하십시오.

입력 (표준 입력에서) : 진 (0/1) 표시 내가 하고 ASCII 문자열 의 .

• 경우 내가 = 0 다음 의는 어떤 ASCII 문자를 포함 할 수 있습니다.
• 경우 나 = 1 다음, S는 어떤 유효한 입력 용 TUT 언어 출력한다.

출력 (stdout으로) : 이진 (0/1) 표시기 j 및 ASCII 문자열 t .

• 경우 나 0 다음 = J = 1 및 t는 번역 인 들 에 TUT 언어.
• 경우 난 다음에 1 = J = 0 및 t는 번역 인 S 에서 TUT 언어.
• 유효한 입력의 경우 프로그램을 자체 출력에 적용하면 원래 입력을 정확하게 재현해야합니다. 즉, program ( program ( 프로그램 ( i , s )) = ( i , s )입니다. 입력과 출력은 정확히 같은 형식이어야합니다.

채점 : 점수는 프로그램의 문자 수입니다. 최저 점수가 이깁니다.

예

(ㅏ)

(0, 'Look for the birds.')
(1, 'LULskwerokak fuforut tuthashi bubayruddudsus.')

(비)

(0, '"Mrs. Hogwallop up and R-U-N-N-O-F-T."')
(1, '"MUMrutsus. HASHojugwakseskwerlulopup yupup enundud RUT-YU-NUN-NUN-O-FUF-TUT."')

( c )

(0, 'QWX WWW Rrrrd deeeeep')
(1, 'KWAKWAKSEKS SKWERWAKSWAKS RUTskwerrutruddud dudskweriskweriipup')

( d )

(0, 'aa AA aA Aa rd RD rD Rd')
(1, 'skwere SKWERE eE Ee ruddud RUDDUD rutDUD RUTdud)

(((제외 발음에 대해 : 모음 (의 혀 단어 e, i, ay, o, yu- (즉,로 운 수 있음), 전자 알파벳을 낭송 할 때 (난, O는 유)의 일반적인 소리를 표현하기 위해 가정된다 나, 내,), 갈매기를 깍는 세 또는 - 더 - 편지 혀의 즉, 기호 (. u, a, e)에서 (그러나, 박쥐, 내기로 소리를 해야하는)는 각각 - 이들에 대한 ASCII 교체입니다 ( ʌ æ ɛ)를 링크 된 기사에서).)))

루비, 310 311 자

h=Hash[(?a..?z).zip %w{e bub kut dud i fuf jug hash ay jag kak lul mum nun o pup kwak rut sus tut yu vuv waks eks yak zuz}]
h["rd"]="ruddud"
h.keys.each{|k|h[k[0]+k]="skwer"+h[k]}
h.keys.each{|k|h[k.upcase]=h[k].upcase}
h=h.invert if b=getc==?1
i=gets
print b ?0:1;(k=i;k=k.chop until h[k]||!k[1];$><<(h[k]||k);i[k]="")until i==""

올바르게 처리합니다.

• 제곱 대문자 (반복 병합으로 수정되지 않음)
  • 경우 AA에 설정해야 skwerE스왑 라인 # 3, # 4,
  • 나는 또한 가정 aA및 Aa로 설정해야 eE하고 Ee각각
• rrd `skwerruddud로 변환합니다 (unfix는 3 문자를 얻습니다)
• 큐브에서 첫 번째 쌍은 사각형으로보고됩니다. rrrd로 바뀝니다 skwerrutruddud. rrrrd된다skwerrutskwerruddud
• 출력은 이제 유효한 입력입니다. 그것은 실제로 사양에 필요합니다
• 줄 바꿈을 입력 종결 자로 사용

입력은 인디케이터와 문자열 사이에 줄 바꿈이 없어야하며 출력은이를 수정합니다 (수정 : 1 자).STDIN과의 혼합을 방지하기 위해이 시점에서 콘솔 출력이 억제되었습니다. 무료로 수정하십시오. 조금 더 추악합니다.

입력 예 :

0Hello

산출:

1
HASHiskwerlulo

펄 453 443 309 307 303 299

($x,$_)=split//,<>,2;@x{a..z,rd}=(e,bub,kut,dud,i,fuf,jug,hash,ay,jag,kak,lul,mum,nun,o,pup,kwak,rut,sus,tut,yu,vuv,waks,eks,yak,zuz,ruddud);$x{$_ x2}=skwer.$x{$_}for a..z;$x{uc$_}=uc$x{$_}for keys%x;%x=reverse%x if$x;$z=join"|",sort{length$b<=>length$a}keys%x;s/\G(.*?)($z)/$1$x{$2}/g;print!$x+0,$_

테스트 사례 :

OP에 제공된 (a), (b), (c) 및 (d) 테스트 사례를 성공적으로 테스트했습니다.

좀 더 읽기 쉬운 버전 :

($x,$_)=split//,<>,2;
@x{a..z,rd}=(e,bub,kut,dud,i,fuf,jug,hash,ay,jag,kak,lul,mum,nun,o,pup,kwak,rut,sus,tut,yu,vuv,waks,eks,yak,zuz,ruddud);
$x{$_ x2}=skwer.$x{$_}for a..z;
$x{uc$_}=uc$x{$_}for keys%x;
%x=reverse%x if$x;
$z=join"|",sort{length$b<=>length$a}keys%x;
s/\G(.*?)($z)/$1$x{$2}/g;
print!$x+0,$_

APL (다이아 로그) (372)

실제로 APL에 내장 문자열 처리 기능이 없다는 것을 알 수 있습니다 (일반 배열 기능 제외). 난 내 자신을 작성했다 tolower(그것의 L). 멀티 라인 Dyalog APL에서 항상 그렇듯이 테스트하려면 편집 창에 붙여넣고 호출하십시오 ( T).

T
Q←⎕UCS
L←{Q(Q⍵)+32×⍵∊⎕A}
Z←{⎕←⊃z,.⍺⍺1⌽z←⍵,' '}
w←L¨W←1↓¨W⊂⍨' '=W←' E BUB KUT DUD I FUF JUG HASH AY JAG KAK LUL MUM NUN O PUP KWAK RUT SUS TUT YU VUV WAKS EKS YAK ZUZ RUD SKWER'
⍞{⎕←~⍵:{U←L⍣(l←⍺∊L⎕A)
~l∨⍺∊⎕A:⍺
⍺=⍵:U⊃⌽W
'rd'≡L¨⍺⍵:U'RUD'
U⊃W[96-⍨Q+L⍺]}Z⍺
{'rR'∊⍨v←⊃⍺:v
(⊃⌽w)≡m←L⍺:⍵∇⍬
~w∊⍨⊂m:⍺
L⍣(⍺≡L⍺)⍨⎕A/⍨26↑≡∘m¨w}Z{~×⍴⍵:''
∨/H←⊃¨⍷∘(L⍵)¨w:(⊂l↑⍵),∇⍵↓⍨l←⍴⊃H/W
(⊂⊃⍵),∇1↓⍵}⍺}⎕

용법:

      T
⎕:
0
"Mrs. Hogwallop up and R-U-N-N-O-F-T."     
1
"MUMrutsus. HASHojugwakseskwerlulopup yupup enundud RUT-YU-NUN-NUN-O-FUF-TUT."      
      T
⎕:
1
"MUMrutsus. HASHojugwakseskwerlulopup yupup enundud RUT-YU-NUN-NUN-O-FUF-TUT."      
0
"Mrs. Hogwallop up and R-U-N-N-O-F-T."       

Tcl, 395 394 392

set m { rd ruddud a e h hash o o u yu b bub i ay p pup v vuv c kut j jag q kwak w waks d dud k kak r rut x eks e i l lul s sus y yak f fuf m mum t tut z zuz g jug n nun ঙ skwer}
set m $m[string tou $m]
if [read stdin 1] {puts 0[regsub -all ঙ(.) [string map [lreverse $m] [gets stdin]] {\1\1}]} {puts 1[string map $m [regsub -all (.)\\1 [gets stdin] ঙ\\1]]}

노트:

• 에 사용 skwerruddud합니다 rrd.
• skwereskweree에 대한 aaaaa.

입력 예 :

0Hello

산출:

1HASHiskwerlulo

작동 방식 :

• m 문자열의 시작 부분에 있습니다.
• 대문자 맵과 연결합니다.
• [문자열 맵]은 나를 위해 대부분의 일을합니다 (목록을 사용하므로 유효한 목록은 무엇이든 ...)
• 이중 문자에 대한 정규 표현식. 특수 대체 문자 ( ঙ)를 사용하십시오 .

펄 385

$t=e0bub0kut0dud0i0fuf0jug0hash0ay0jag0kak0lul0mum0nun0o0pup0kwak0rut0sus0tut0yu0vuv0waks0eks0yak0zuz;@t=split 0,$t."0\U$t";@s=(a..z,A..Z);while(<>){($-,$_)=split/ /,$_,2;@l{$-?@t:@s}=$-?@s:@t;if($-){for$@(@t){s/skwer$@/$@$@/gi}for$@(@t){s/$@/$l{$@}/g}s/(r)ud/$1/gi}else{s/(.)/$l{$1}||$1/ge;for$@(@t){$r=lc$@eq$@?"skwer":"SKWER";s/$@$@/$r$@/g}s/(ru)t(d)/$1$2$2/gi}$-=!$-;print"$- $_"}

구문 형광펜은 이것을 싫어합니다 ...

STDIN에서 입력을 예상하며 형식은 0 (or 1) String to convert here.다음과 같습니다.

0 Hello! # input
1 HASHiskwerlulo! # output

1 HASHiskwerlulo!
0 Hello!

0 Look for the birds.
1 LULskwerokak fuforut tuthashi bubayruddudsus.

1 LULskwerokak fuforut tuthashi bubayruddudsus.
0 Look for the birds.

0 "Mrs. Hogwallop up and R-U-N-N-O-F-T."
1 "MUMrutsus. HASHojugwaksaskwerlulopup yupup anundud RUT-YU-NUN-NUN-O-FUF-TUT."

1 "MUMrutsus. HASHojugwaksaskwerlulopup yupup anundud RUT-YU-NUN-NUN-O-FUF-TUT."
0 "Mrs. Hogwallop up and R-U-N-N-O-F-T."

편집 : X의 번역에 문제가 있음을 발견했습니다 (복귀에서 'aks'가됨에 대해서는 나중에 살펴 보겠습니다. 해시를 다시 주문해야 할 수도 있습니다 :(.

GNU Sed, 514

s/$/\n@a!e@b!bub@c!kut@d!dud@e!i@f!fuf@g!jug@h!hash@i!ay@k!kak@l!lul@m!mum@n!nun@o!o@p!pup@q!kwak@r!rud@r!rut@s!sus@t!tut@u!yu@v!vuv@w!waks@x!eks@y!yak@z!zuz/
s/.*\n\(.*\)/&\U\1@/
ta
:a
s/^1/0\v/
td
s/^0/1\v/
:t
/\v\n/bf
s/\v\([^a-z]\)/\1\v/i
tt
s/\v\([a-z]\)\1/skwer\v\1/
s/\v\([A-Z]\)\1/SKWER\v\1/
s/\v\(.*\)\(.*\n.*@\1!\(\w\+\)@\)/\3\v\2/
s/rut\vd/rud\vd/
s/RUT\vD/RUD\vD/
bt
:d
/\v\n/bf
s/\v\([^a-z]\)/\1\v/i
td
s/\v\(skwer\)/\1\v/i
s/\v\(.*\)\(.*\n.*@\(.\)!\1@\)/\3\v\2/
s/skwer\(.\)\v/\1\1\v/
bd
:f
s/\v.*//

내가 지금 끝났지 만 아마 단축 될 수 있습니다.

조회 테이블을 사용하여 양방향 변환을 처리하며, skwer case 및 ruddud / RUDDUD를 포함한 모든 예외를 올바르게 처리해야합니다.

각 행에서 0/1로 입력 된 다음 문자열. 용도 \v커서로 (수직 탭).