diff options
Diffstat (limited to 'samples/euler/048.bruijn')
| -rw-r--r-- | samples/euler/048.bruijn | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/samples/euler/048.bruijn b/samples/euler/048.bruijn new file mode 100644 index 0000000..e4f2cbb --- /dev/null +++ b/samples/euler/048.bruijn @@ -0,0 +1,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)] |