diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 23:51:34 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 23:51:34 +0200 |
| commit | f9678673dfa11d3b793676350e01247024e803b3 (patch) | |
| tree | 256f24ec013ecce30786e98c81f27b3829a32a94 | |
| parent | 67be0615db32ae50744992dfc3a05ef336b52a57 (diff) | |
Problem 37
| -rw-r--r-- | problem37.ijs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/problem37.ijs b/problem37.ijs new file mode 100644 index 0000000..bebb9de --- /dev/null +++ b/problem37.ijs @@ -0,0 +1,7 @@ +enc =: 10&#. +digits =: enc^:_1 +truncs =: monad : '(1-#y)+i._1+2*#y' +truncations =: monad : '; enc@:}.&y each truncs y' +truncatablePrime =: monad : '*./1&p: truncations digits y'"0 +primes =: 4}.p:i.1e5 NB. A good guess :) +problem37 =: +/(truncatablePrime#]) primes |