ページ 33 | Codetter（こーどったー）

#module
#deffunc XorCrypt var b, int s, int p
if s <= 0 : return -1
randomize p
dim k, 256

// hspinet (HSP 3.2 以降が必要)
#include "hspinets.as"

// 以下モジュール
// このモジュールはhspinetを使用していますので、

<?php
	if(user_logged_in()){
	/*
	記事投稿時に「userid」というカスタムフィールドに見せたいユーザーのIDを入力しておきます。
	*/

/*
	帽子は何色？
	論理的思考力を持つ3人の正直者 a, b, c に、5つの帽子(赤×3, 白×2)のうち3つを1つずつ被せる。
	どの人も、他2人の帽子の色を知っている(∵見えている)が、自身の帽子の色は知らない。
	出題者「あなたの帽子の色は？」　a「……わかりません。」

% 嘘つき問題
/*
	正直者は誰？
	A1「ここに、嘘つきは1人いる。」
	A2「ここに、嘘つきは2人いる。」

#ifndef in_m_varsize
#define in_m_varsize
#module "m_varsize"
// val=varsize(p1)
// p1=変数 : サイズを知りたい変数

reg srch_slct<8>; // ワンホットレジスタ
reg spr_buf_set<8>; // 描画されるスプライトセット

// 以前の記述
			any{

:- op(700, xfx, ∈).
∈(X, Y) :- contains(Y, X).

contains([Val|_], Val).
contains([_|Tail], Val) :- contains(Tail, Val).

append([], List, List).
append([Head|Tail], List, [Head|TailR]) :- append(Tail, List, TailR).

部分リスト(List, (I, I), []).
部分リスト(List, (0, End), SubList) :-

% 4×4 行列分解
groups_4x4(
	[
		[M00, M01, M02, M03],	% 行ベクトルのリスト
		[M10, M11, M12, M13],