DailyCodingに投稿した方は、()が1つ余計でした。 gを1行にしようとしましたが、上手く行きませんでした。 g=:3 :0 if. y=+/!(10(a})a=.i.1+<.10^.y)#:y do. y else. 0 end. ) f=:3 :0 s=.0 for_j. i.y do. s =.s+g j+1 end. ) _3 + f 7*!9

まともに書こうとしたが、諦めた p:10000

*./ 1+i.20

J言語使うと簡単 q:が素因数分解する動詞です。 {:q:600851475143

1000未満で且つ、3か5の倍数である自然数の和を求める全くJらしくないですが、Jです。 (+/ 5 * 1+ i.199) + (+/ 3 * 1 + i.333) - (+/ 15 * 1 + i.66)多少改善 +/ ~. (5 * i.200),(3 * i.334)