22 lines
416 B
Text
22 lines
416 B
Text
func contains a[] b .
|
|
for a in a[] : if a = b : return 1
|
|
return 0
|
|
.
|
|
func gcd a b .
|
|
if b = 0 : return a
|
|
return gcd b (a mod b)
|
|
.
|
|
starts[] = [ 2 5 7 9 10 ]
|
|
len ekg[][] 5
|
|
for s to 5
|
|
ekg[s][] = [ 1 starts[s] ]
|
|
for n = 2 to 10
|
|
for i = 2 to 1 / 0
|
|
if contains ekg[s][] i = 0 and gcd ekg[s][n], i > 1
|
|
ekg[s][] &= i
|
|
break 1
|
|
.
|
|
.
|
|
.
|
|
print ekg[s][]
|
|
.
|