aboutsummaryrefslogtreecommitdiffhomepage
path: root/samples/euler/048.bruijn
blob: e4f2cbb9ef9f3a248c32917a81f194272cdddc92 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
# TODO: also very slow

:import std/Combinator .
:import std/String .
:import std/Math .

solve [∑ (+1) → 0 | [pow-mod 0 0 (+10000000000)]]

:test ((solve (+10)) =? (+405071317)) ([[1]])

main [solve (+1000)]