23 lines
231 B
Text
23 lines
231 B
Text
C :n=1
|
|
:max=0
|
|
:seen=0
|
|
|
|
*number
|
|
U :*count
|
|
T (c>max):#n
|
|
C (c>max):seen=seen+1
|
|
C (c>max):max=c
|
|
:n=n+1
|
|
J (seen<20):*number
|
|
E :
|
|
|
|
*count
|
|
C (n=1):c=1
|
|
E (n=1):
|
|
C :c=2
|
|
:i=2
|
|
*cnloop
|
|
E (i>n/2):
|
|
C (i*(n/i)=n):c=c+1
|
|
:i=i+1
|
|
J :*cnloop
|