4 in 3 by pooq

REBOL[]while[i: input][x: parse i""a: do x/1 b: do x/2 insert at c: form(round a * b /(a + b)* 100)(length? c)- 1"."print c]

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

download

return to the top page