Japanese numeral for Ruby kaigi by kozima

(loop(setf a 0 r 0)(doseq(c(read-line(make-stream 0 :EXTERNAL-FORMAT charset:utf-8)))(set'r(if #1=(#2=position #3=(int-char(mod(char-int c)44))"_\x11\x12\x13")(if(incf a(*(max r 1)(expt 10 #1#)))0)(#2##3#"_$\x00\x01\x0f\x08!'\x1f)"))))(format t"~D
"(+ a r)))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page