Speaking in Tongues

[June Kim (김창준)‏]

안녕하세요. 어제 정모 즐거웠습니다.

간만에 J언어에 관심이 더 생겨서 어제밤이랑 오늘 아침에 J로 몇 가지 좀 해봤더니 좋네요.

http://code.google.com/codejam/contest/dashboard?c=1460488

구글 코드잼 문제입니다. 연습문제라서 쉽습니다.

J언어로 풀고 결과 파일을 업로드하면 정답 여부가 보입니다.

한번씩 해보고 각자 풀이를 공유해 보면 좋을 듯~

[Yeonseung Kim‏]

파일이 긴데 대부분이 데이터 값입니다. 

input =: temp #~ ns =: ~: ] temp =. ; cutopen 0 : 0

ejp mysljylc kd kxveddknmc re jsicpdrysi

rbcpc ypc rtcsra dkh wyfrepkym veddknkmkrkcd

de kr kd eoya kw aej tysr re ujdr lkgc jv

)

output =: ns # ; (3&}.)&.;: each cutopen 0 : 0

Case #1: our language is impossible to understand

Case #2: there are twenty six factorial possibilities

Case #3: so it is okay if you want to just give up

)

NB. 힌트 감사!!

input =: input, 'qz'

output =: output, 'zq'

trans =: output {~ input&i. 

problem =: }. cutopen 0 : 0

30

ejp mysljylc kd kxveddknmc re jsicpdrysi

rbcpc ypc rtcsra dkh wyfrepkym veddknkmkrkcd

de kr kd eoya kw aej tysr re ujdr lkgc jv

hello i am the google code jam test data

how are you

aynny iynny aynny iynny aynny iynny aynny iynny aynny iynny aynny iynny aynny iynny aynny ieeeeeeeee

y n f i c w l b k u o m x s e v z p d r j g a t h a q set k oset xa ynfd

schr rkxc tesr aej dksl tkrb xc

wep rbedc tbe dvcyo ks y resljc ie ser dvcyo re erbcp vcevmc

seneia jsicpdrysid rbcx dksfc rbca ypc dvcyoksl xadrcpkcd ks rbc dvkpkr

rbkd kd de chfkrksl k bygc re le rbc nyrbpeex

kr tyd rbc ncdr ew rkxcd kr tyd rbc nmjpdr ew rkxcd

mcr mkvd ie tbyr bysid ie

rbkd bcpc kd ljsveticp yfrkgyrci rtcsra dcgcs fymkncp wjmm yjre se okfonyfo sykmrbpetksl xyabcx

k bygc ncdrci wpjkr dvkoc ysi xees set k dbymm ncdr aej rbc lja

eb byk kx ks jp fexvjrcp cyrksl aejp fbccqnjplcpd ysi leelmcpcdksl aejp rchrq

ys cac wep ys cac ysi y vklces wep y vklces

ymm aejp nydc ypc ncmesl re cppep rbc dveesa nypi

aej vkddci eww rbc fbkfocs myia

set kd rbc djxxcp ew ejp myfo ew ikdfesrcsr

na rbc vpkfoksl ew xa rbjxnd dexcrbksl tkfoci rbkd tya fexcd

ks y tepmi ew ikpctemgcd ysi mkesd dexcrkxcd rbc pypcdr fpcyrjpc kd y wpkcsi

lpccrksld fbccdc vevdkfmc rbc sjxncp aej bygc ikymci kd fjppcsrma ejr ew vepofbevd

tba ie vpelpyxxcpd ymtyad xkh jv bymmetccs ysi fbpkdrxyd

kx fexxysicp dbcvypi ysi rbkd kd xa wygepkrc vpenmcx es rbc leelmc feic uyx

w ew rte czjymd w ew esc czjymd esc

wep k ncrtccs rbpcc ysi s w ew k czjymd w ew k xksjd esc vmjd w ew k xksjd rte

bet ypc aej bemiksl jv ncfyjdc kx y veryre

ip qykjd ip qykjd ip qykjd ip qykjd eeeeeeeeeeeeb ip qykjd

tbeeeeeeeeeeeeeeeeeeeyyyyyyyyy k oset f vmjd vmjd

)

require 'format'

wdclipwrite clipfmt (trans each problem) ,.~ (':' ,~ 'Case #' , ])&": each ;/ >: i. 30

2012/4/26 June Kim (김창준) <june...@gmail.com>

--
Google 그룹스 'jaylang' 그룹에 가입했으므로 본 메일이 전송되었습니다.
이 그룹에 게시하려면 jay...@googlegroups.com(으)로 이메일을 보내세요.
그룹에서 탈퇴하려면 jaylang+u...@googlegroups.com로 이메일을 보내주세요.
더 많은 옵션을 보려면 http://groups.google.com/group/jaylang?hl=ko에서 그룹을 방문하세요.