yohei #5877(2008/02/27 07:44 GMT) [ Prolog ] Rating0/0=0.00
辞書順の方は，組み込みで． 距離の方は，距離-(X,Y) のペアを作ってソート．
1 2 3 4 5 6 7 8 9
distance((X,Y), D) :- D is X * X + Y * Y. distance_sort(L, S) :- map_list_to_pairs(distance, L, P), keysort(P, SP), pairs_values(SP, S). :- L = [(1,2), (3,4), (1,3), (2,4), (1,8)], msort(L, S1), writeln(S1), distance_sort(L, S2), writeln(S2).
Rating0/0=0.00-0+
[ reply ]
yohei
#5877()
[
Prolog
]
Rating0/0=0.00
辞書順の方は，組み込みで． 距離の方は，距離-(X,Y) のペアを作ってソート．
distance((X,Y), D) :- D is X * X + Y * Y. distance_sort(L, S) :- map_list_to_pairs(distance, L, P), keysort(P, SP), pairs_values(SP, S). :- L = [(1,2), (3,4), (1,3), (2,4), (1,8)], msort(L, S1), writeln(S1), distance_sort(L, S2), writeln(S2).Rating0/0=0.00-0+
[ reply ]