6N plus minus one by jamesaxl

for(<>){chomp$_;$a=($_+1)/6;$b=($_-1)/6;($_+1)%6==0?print"$_ = 6 * $a - 1\n":print"$_ = 6 * $b + 1\n"}

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

download

return to the top page