ISBN2 by yshl

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

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


return to the top page