このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1248012902/376
#  ・課題 
#  与えられたベクトルファイル(c.txt)を読み込み 
#  1-normの結果を表示させるプログラムを作成せよ 
#   
#  途中までのソースとベクトルファイルです 
#  http://ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/809.java
#  http://ime.nu/kissho.xii.jp/1/src/1jyou94333.txt.html
# ( c.txt = )
#  0.9999999973
#  0.0000000023
# -0.0000000016
#  

t798 :- t798(1).

t798(P) :-
    float_format(_,f(22,21)),
    get_lines('c.txt',Lines),
    findall(V,(member(Line,Lines),atom_to_term(Line,V,_)),L),
    ベクトルのnorm(L,1,X),
    write_formatted('|C|=%t の時 |C|%t = %t\n',[L,P,X]).

ベクトルのnorm(L,P,X) :-
    findsum(B,(member(A,L),B is abs(A) ^ P),S),
    X is S ^ (1 / P).