12 lines
302 B
Text
12 lines
302 B
Text
#import std
|
|
#import nat
|
|
|
|
smooth"p" "n" =
|
|
|
|
~&H\"p" *-<1>; @NiXS ~&/(1,1); ~&ll~="n"->lr -+
|
|
^\~&rlPrrn2rrm2Zlrrmz3EZYrrm2lNCTrrm2QAX*rhlPNhrnmtPA2XtCD ~&lrPrhl2E?/~&l ^|/successor@l ~&hl,
|
|
^|/~& nleq-<&l+ * ^\~&r ~&l|| product@rnmhPX+-
|
|
|
|
#cast %nL
|
|
|
|
main = smooth<2,3,5>* nrange(1,20)--<1691,1000000>
|