Maximum Cyclic Segment Sum by murky-satyr

(until(= a(readall:readline)p)(map[reclist[~push _ p](= a `(,@cdr.a,a.0))]a)(prall(most[sum + _]p)""" ")(prn))

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

download

return to the top page