プチコン 非公式コミュニティ
プレイ日記
こういち
◆ou0jbJnEJ0Kb
2025/12/25 8:04
2025/12/25 8:04
ACLS
DEF NAND(A,B)
RETURN !(A&&B)
END
DEF NOR(A,B)
RETURN !(A||B)
END
DIM FF%[4]
VAR CE%,I%
FOR I%=0 TO 27
VAR Q0%,Q1%,Q2%,Q3%
Q0%=FF%[0]:Q1%=FF%[1]
Q2%=FF%[2]:Q3%=FF%[3]
VAR A%,B%
A%=NAND(Q0%,CE%)
B%=NOR(A%,!Q1%)
FF%[0]=CE% XOR Q0%
FF%[1]=NAND(NAND(Q1%,A%),NAND(NOR(A%,Q3%),!Q1%))
FF%[2]=NAND(!Q2% OR B%,NAND(B%,!Q2%))
FF%[3]=NAND(NAND(Q3%,A%),NAND(B%,Q2%))
IF 0==CE% THEN
COLOR 14
ELSE
COLOR 15
ENDIF
PRINT FORMAT$("%d %d %d %d"FF%[3],FF%[2],FF%[1],FF%[0])
CE%=CE% XOR 1
NEXT I%
DEF NAND(A,B)
RETURN !(A&&B)
END
DEF NOR(A,B)
RETURN !(A||B)
END
DIM FF%[4]
VAR CE%,I%
FOR I%=0 TO 27
VAR Q0%,Q1%,Q2%,Q3%
Q0%=FF%[0]:Q1%=FF%[1]
Q2%=FF%[2]:Q3%=FF%[3]
VAR A%,B%
A%=NAND(Q0%,CE%)
B%=NOR(A%,!Q1%)
FF%[0]=CE% XOR Q0%
FF%[1]=NAND(NAND(Q1%,A%),NAND(NOR(A%,Q3%),!Q1%))
FF%[2]=NAND(!Q2% OR B%,NAND(B%,!Q2%))
FF%[3]=NAND(NAND(Q3%,A%),NAND(B%,Q2%))
IF 0==CE% THEN
COLOR 14
ELSE
COLOR 15
ENDIF
PRINT FORMAT$("%d %d %d %d"FF%[3],FF%[2],FF%[1],FF%[0])
CE%=CE% XOR 1
NEXT I%
コメント
こういち
2025/12/25 22:13
◆ou0jbJnEJ0Kb
FF%[2]=Q2% XOR B%
で良いらしい。
しかし、プログラムだけで動作把握するの無理すぎる。
で良いらしい。
しかし、プログラムだけで動作把握するの無理すぎる。
コメントを書く
- こちらは「プチコン3号」「プチコンBIG」など、プチコンシリーズに関する話題を扱ったコミュニティです
- プチコンシリーズにまったく関係ない書き込みはご遠慮下さい。削除の対象となります
- こちらにはその他のゲームや雑談のコミュニティはなく、作る予定もありません (ひとりで管理できないため)。ごめんなさい
- ユーザー登録なしで書き込みができます
- 秘密の合い言葉は成りすましの防止 (トリップ機能)、書き込みの編集時の本人認証に使用します
- 秘密の合い言葉に他人に推測されやすい言葉、他サービスと同じパスワードは入力しないでください。
- 書き込むと、投稿時に入力したお名前と秘密の暗号が記憶され、ログイン状態になります