- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
242 ：デフォルトの名無しさん[sage]：2015/05/30(土) 22:52:24.39 ID:oUtY+/A5 - >>234 J
f =: 3 : 0
a =. 0$0
c =. 0
i =. 2
while. c < y do.
if. 0 p: i do.
if. i = |.&.": i do.
if. (+/ "."0 ": i) = +/ "."0 ; <@":"0 q: i do.
a =. a , i
c =. >: c
end.
end.
end.
i =. >: i
end.
a
)
10 10 $ f 100
4 22 121 202 454 535 636 666 1111 1881
3663 7227 7447 9229 10201 17271 22522 24142 28182 33633
38283 45054 45454 46664 47074 50305 51115 51315 54645 55055
55955 72627 81418 82628 83038 83938 90409 95359 96169 164461
173371 239932 256652 262262 294492 362263 373373 445544 454454 505505
515515 535535 545545 635536 704407 717717 832238 841148 864468 951159
956659 974479 983389 1076701 1094901 1199911 1395931 1442441 1493941 1575751
1593951 1659561 1680861 1722271 1749471 1771771 1845481 1846481 2009002 2025202
2058502 2176712 2194912 2221222 2279722 2289822 2356532 2408042 2434342 2466642
2491942 2563652 2581852 2594952 2599952 2614162 2738372 2792972 2850582 2851582
|