diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 17:34:42 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 17:34:42 +0200 |
| commit | 5bea77b19aee5db8fb3b7c29c41402325adcb403 (patch) | |
| tree | 5869927303de05082901b4e0f85b37504f703c2f /problem74.ijs | |
| parent | a3ebe0395897c8e3928c4c68aa937bab75ea6006 (diff) | |
Problem 74
Diffstat (limited to 'problem74.ijs')
| -rw-r--r-- | problem74.ijs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/problem74.ijs b/problem74.ijs new file mode 100644 index 0000000..74c57e4 --- /dev/null +++ b/problem74.ijs @@ -0,0 +1,11 @@ +digits =: 10&#.^:_1 +next =: +/@:!@:digits +loop =: monad define + n =. next {. y + if. n e. y do. + #y + else. + loop (n,y) + end. +) +problem74 =: +/60=loop"0 i.1e6 NB. Takes about a minute to compute |