いろんな言語で宿題第四編

いろんな言語で宿題第四編 at TECH

40:デフォルトの名無しさん
10/03/17 08:37:27
>>39
% Prolog

時間昇降順で表示するwho(_昇降順) :-
　　　shs(who,L),
　　　時間昇降順で表示するwho(L,L1),
　　　wrln(L1).

時間昇降順で表示するwho(_昇降順,L,_時間昇降順who) :-
　　　findall([_時刻,_行],(member(L1,L),時刻を取り出す(_行,_時刻)),_時刻を先頭に付加したwho),
　　　昇降順に整列(_昇降順,_時刻を先頭に付加したwho,_時間昇降順who).

時刻を取り出す(_行,_時刻) :-
　　　split(_行,[' '],L1),
　　　append(L2,[_分秒|L3],L1),
　　　sub_atom(_分秒,_,1,_,':'),
　　　last(L2,_年月日),
　　　sub_atom(_年月日,_,1,_,'-'),
　　　concat_atom([B,' ',A],_時刻),!.

昇降順に整列(昇順,_時刻を先頭に付加したwho,_時間昇降順who) :-
　　　整列(_時刻を先頭に付加したwho,_整列した時刻を先頭に付加したwho),
　　　findall(_行,member([_,_行],_整列した時刻を先頭に付加したwho),_時間昇降順who).

昇降順に整列(降順,_時刻を先頭に付加したwho,_時間昇降順who) :-
　　　整列(_時刻を先頭に付加したwho,_整列した時刻を先頭に付加したwho),
　　　reverse(_整列した時刻を先頭に付加したwho,_整列しかつ反転した時刻を先頭に付加したwho),
　　　findall(_行,member([_,_行],_整列しかつ反転した時刻を先頭に付加したwho),_時間昇降順who).

次ページ

続きを表示

1を表示