blob: e644a03163036ce7574399812614095c6f1a9d39 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
# TODO: Find faster algorithm
:import std/Combinator .
:import std/Math .
factors [[y [[[(1 <? 3) (2 ++1 (0 + (=?(4 % 1) (+2) (+0)))) 0]]] (+1) (+0)] ++(sqrt 0)]
solve [y [[[(factors 1) >? 3 1 (2 (1 + 0) ++0)]]] (+0) (+0)]
:test ((solve (+5)) =? (+28)) ([[1]])
main [solve (+500)]
|
