(#0=dotimes,20(print(/(let1 r 0(#0#,11(with-input-from-string(read-line)(pa$ port-map(rec,x(if(eq? x'*)(inc! r)))read)))r)2)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page