aboutsummaryrefslogtreecommitdiffhomepage
path: root/samples/euler/063.bruijn
blob: eb54a65ca246cfa40b40841398ba39c5cc1f9c7f (plain) (blame)
1
2
3
4
5
:import std/Combinator .
:import std/Math .
:import std/List .

main [∑([y [[0 =? ++(log (+10) (2 ** 0)) (1 ++0) --0]] (+1)] <$> ({ (+1) → (+9) }))]