「puzzle」のタグがつけられたコード一覧
一要素置換([Bef|Tail], [Aft|Tail], (Bef, Aft)). 一要素置換([X|BefTail], [X|AftTail], Replace) :- 一要素置換(BefTail, AftTail, Replace). % デジタル文字の定義
% 嘘つき問題 /* 正直者は誰? A1「ここに、嘘つきは1人いる。」 A2「ここに、嘘つきは2人いる。」
% 4×4 行列分解 groups_4x4( [ [M00, M01, M02, M03], % 行ベクトルのリスト [M10, M11, M12, M13],