diff options
| -rw-r--r-- | problem41.ijs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/problem41.ijs b/problem41.ijs new file mode 100644 index 0000000..898ef55 --- /dev/null +++ b/problem41.ijs @@ -0,0 +1,20 @@ +digits =: 10&#.^:_1 + +pandigital =: monad define + ds =. /:~ digits y + ds -: 1 + i. # ds +) + +solve =: monad define + i =. _1 p: y + result =. 0 + while. result=0 do. + if. pandigital p: i do. + result =. p: i + end. + i =. i - 1 + end. + result +) + +problem41 =: solve 7654321 NB. Takes too long to start from 987654321 |