このディレクトリの索引

マジックナンバー(Input,_マジックナンバー) :-
      findall(Y,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;char_code(Y,X))),L),
      concat_atom(L,_マジックナンバー),!.

画像の幅方向サイズ(Input,_画像の幅方向サイズ) :-
      repeat,
      get_byte(C),
      \+('Whitespace'(C)),
      findall(X,(repeat,get_byte(Input,X),('Whitespace'(X),!,fail;true)),L),
      number_codes(_画像の幅方向サイズ,[C|L]),!.