19 lines
424 B
Plaintext
19 lines
424 B
Plaintext
{def perf
|
|
{def perf.sum
|
|
{lambda {:n :sum :i}
|
|
{if {>= :i :n}
|
|
then {= :sum :n}
|
|
else {perf.sum :n
|
|
{if {= {% :n :i} 0}
|
|
then {+ :sum :i}
|
|
else :sum}
|
|
{+ :i 1}} }}}
|
|
{lambda {:n}
|
|
{perf.sum :n 0 2} }}
|
|
-> perf
|
|
|
|
{S.replace \s by space in
|
|
{S.map {lambda {:i} {if {perf :i} then :i else}}
|
|
{S.serie 2 1000 2}}}
|
|
-> 6 28 496 // 5200ms
|