diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-28 00:43:24 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-28 00:43:24 +0200 |
| commit | e21b21316915413c3f9b3c62e1b1dbdb6589a986 (patch) | |
| tree | ec13cd609ae3ae2155c660a6f7c9e1cd22400c48 | |
| parent | f9678673dfa11d3b793676350e01247024e803b3 (diff) | |
Problem 38
| -rw-r--r-- | problem38.ijs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/problem38.ijs b/problem38.ijs new file mode 100644 index 0000000..4f379ea --- /dev/null +++ b/problem38.ijs @@ -0,0 +1,7 @@ +enc =: 10&#. +digits =: enc^:_1 +cp =: dyad : 'enc ,;digits each x*1+i.y' +pandigital =: (1+i.9)-:/:~ +cps =: ~.,(i.1e4) cp"0/ 2+i.8 +valid =: pandigital&:digits"0 +problem38 =: x:{.\:~(valid#])cps |