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

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

28:デフォルトの名無しさん
10/03/14 07:50:53
>>21 (>>20)
% Prolog 下のようにしておいた方が無難なんだろうか。

行列の階数(_行列,_階数) :-
　　　ガウス行列に変形(_行列,_ガウス行列),
　　　count((member(L,_ガウス行列),\+('すべての要素が0か0.0'(L))),_階数).

'すべての要素が0か0.0'([]).
'すべての要素が0か0.0'([0|R]) :-
　　　'すべての要素が0か0.0'(R).
'すべての要素が0か0.0'([0.0|R]) :-
　　　'すべての要素が0か0.0'(R).

次ページ

続きを表示

1を表示