|
uchinyan |
|
うへ，一気にプログラムが増えましたね。
実は書き込みがなかったらと思って以前に組んだプログラムがあるのですが，一応，私も書き込んでおこうかな。 十進ベーシックです。 FOR n = 0 TO 1023 LET LR = 0 FOR i = 1 TO 10 LET LR = LR * 2 + MOD(INT(n/2^(i-1)),2) NEXT i LET UD = 0 FOR i = 1 TO 5 LET UD = UD * 2 + (MOD(INT(n/2^(i+4)),2) * 2^5 + MOD(INT(n/2^(i-1)),2)) NEXT i LET R = MOD(n,2^5) * 2^5 + INT(n/2^5) IF (n <= LR) AND (n <= UD) AND (n <= R) THEN LET cnt = cnt + 1 END IF NEXT n PRINT cnt END |
|
11月6日（日） 17:05:31
45495 |