diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-26 21:20:10 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-26 21:20:10 +0200 |
| commit | 97887f87d46c179827fb14ce2a5d4b8aae8ca174 (patch) | |
| tree | 609cdcb0523a0636ac3aa11a4044bf5e3169237e | |
| parent | fffe5232562ca2472d8f5291db7182488d55ce0b (diff) | |
Problem 39
| -rw-r--r-- | problem39.ijs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/problem39.ijs b/problem39.ijs new file mode 100644 index 0000000..064ce73 --- /dev/null +++ b/problem39.ijs @@ -0,0 +1,7 @@ +perimeter =: {{ x+y+%:(x^2)+y^2 }} +count =: monad define + pairs =. y=perimeter"0/~>:i.y + top =. <:/~i.y + +/,pairs*.top +) +problem39 =: >:{.\:count"0>:i.1e3 NB. Takes around 3-4 minutes to compute |