ISBN2 by ySas (not bin)

%{{/l(%stdin)(r)file 20 string readline pop def l(?)search 0 1 9{3 index cvs pop l length 15 lt{4 1 1 10{}for}{7{3 1}repeat}ifelse 5{0}repeat l{48 sub 30 mod mul add exch}forall 7 add mod 0 eq{l =}if}for}loop}stopped

{{/l(%stdin)(r)file 20 string readline pop def l(?)search def 0 1 9{exch cvs l length 15 lt{4 1 1 14{}for}{9{3 1}repeat}ifelse 0 l{30 mod mul add exch}forall 7 add mod 0 eq{l =}if}for}loop}stopped

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

download

return to the top page