|
鯨鯢(Keigei) |
|
十進BASICで組んでみたのを改良しました。
FUNCTION P(x,y) LET z=bitand(x,y) LET p=y IF z>0 AND z<x THEN LET P=bitxor(x,y) END FUNCTION LET count=1024 FOR a=0 TO 1023 IF P(10,P(17,P(320,P(544,a))))<a OR P(48,P(72,P(132,P(258,P(513,a)))))<a OR P(33,P(66,P(132,P(264,P(528,a)))))<a THEN LET count=count-1 NEXT a PRINT count END |
|
11月6日（日） 21:38:56
45501 |