diff options
Diffstat (limited to 'samples/euler/009.bruijn')
| -rw-r--r-- | samples/euler/009.bruijn | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/samples/euler/009.bruijn b/samples/euler/009.bruijn index be21d9e..c789719 100644 --- a/samples/euler/009.bruijn +++ b/samples/euler/009.bruijn @@ -12,6 +12,6 @@ solve [head <#> lst] → head → tail a 1 - 0 b (+2) ⋅ 3 ⋅ 2 c 1 + 0 - lst concat-map [map [check] ({ (+1) → --0 })] ({ (+2) → (sqrt 0) }) + lst [[check] <$> ({ (+1) → --0 })] <++> ({ (+2) → (sqrt 0) }) main [solve (+1000)] |