dim q(302):for n=2to 301r=q(n-r)+q(n-q(n-2))+(n<3):?r:q(n)=r:next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page