apple lines by 51b

-module(a).
-export([m/0]).
m()->T=lists,S="apple"++T:duplicate(25,42),{_,[X]}=io:fread('',"~d"),[io:format(T:sublist(S++S++S,61-Y,30)++"
")||Y<-T:seq(0,X)].

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

download

return to the top page