diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-09-20 15:24:10 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-09-20 15:24:10 +0200 |
| commit | 898a95e59780dbee58c0a08ba8594b5e33953ccb (patch) | |
| tree | 6f8000837d01b00cc3d0153998884d15be0b88d8 | |
| parent | 3ed38a90366e9da1ec5088ea8f8259b4a444362d (diff) | |
Problem 47
| -rw-r--r-- | problem47.ijs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/problem47.ijs b/problem47.ijs new file mode 100644 index 0000000..fb483ab --- /dev/null +++ b/problem47.ijs @@ -0,0 +1,21 @@ +factors =: verb : '*/__ q:y' +distinctFactors =: verb : '#~.;factors each y' + +n =: 2 +count =: n*n + +solve =: verb define + n =. y + count =. n*n + i =. 1 + result =. 0 + while. result = 0 do. + if. count = distinctFactors i+i.n do. + result =. i + end. + i =. i + 1 + end. + result +) + +problem47 =: solve 4
\ No newline at end of file |