前回のをforthで書いてみる。 : M 10 mod ; : N 10000 1001 ?DO i M i 10 / M i 100 / M i 1000 / M + + + i over BEGIN /mod swap dup 0= WHILE drop 2dup = if i . endif over REPEAT 2drop drop LOOP ; N Ideone.com - LfN1Y2 - Online Forth Interpreter…

こういうツイートがあったので、まずawkで。 https://twitter.com/i/web/status/797584909359464448 【各桁の和の整数乗がその数自身となる4桁の整数解を求める最短コード】まだまだ若いモンには負けん！ ペリルで72文字 ＼^o^／ for(1..14){$i=$_;for(1e3..…