diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 16:04:28 +0200 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2021-08-27 16:04:28 +0200 |
| commit | 5d86c059400c902e473bc2c1074f5f59a4966c95 (patch) | |
| tree | 33c777ee85a7eb0336762eb01a9ea9407a87c76f /problem26.ijs | |
| parent | 2b092dd4bbcc40e62800fa965c5428c2c9139ceb (diff) | |
Problem 26
Diffstat (limited to 'problem26.ijs')
| -rw-r--r-- | problem26.ijs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/problem26.ijs b/problem26.ijs new file mode 100644 index 0000000..0312524 --- /dev/null +++ b/problem26.ijs @@ -0,0 +1,23 @@ +longdiv =: dyad define + 'n seen' =. x + d =. y + + r =. <.n%d + if. r=0 do. + newn =. n*10 + else. + newn =. n-r*d + end. + + if. newn=0 do. + 0 + elseif. newn e. seen do. + #seen + elseif. r=0 do. + (newn;seen) longdiv d + else. + (newn;seen,newn) longdiv d + end. +) + +problem26 =: {. \: (1;0$0)&longdiv each i. 1000 |