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

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

at([Val|Tail], 0, Val).
at([Head|Tail], Idx, Val) :- number(Idx), Idx > 0, Idx1 is Idx - 1, at(Tail, Idx1, Val).

% 0 = 点灯(on), 1 = 消灯(off)とする。
% 解答として、すべて点灯させるためにスイッチすべきライトの成分のリストを返す。

% リスト・行列に関する諸述語
append( [], List, List ).

#include "hspcv.as"

orgdir = dir_cur
repeat
	cvloadxml orgdir+"\\haarcascade_frontalface_alt2.xml"

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

at( [Head|Tail], (0, Y), Val ) :- at(Head, Y, Val).
at( [Head|Tail], (X, Y), Val ) :- X > 0, X1 is X - 1, at( Tail, (X1, Y), Val ).

/*
	Mapper 080
	Tatio X1-005
		PRG-ROM 16KB banks 8 16 max 256KB

/*
	Mapper 023
	Konami VRC2 type B
		PRG-ROM 16KB banks 8 max 128KB

def perfect_num n
  get_array(n, [])
end

def get_array(n, a)

def my_reverse(x)
  my_reverse_rec(x, [])
end

def my_reverse_rec(x, y)

$hai = [1,2,3,4,5]

$s = 0
$t = $hai.length - 1

library IEEE;
use IEEE.std_logic_1164.all;

package SUB_PACK is