※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


Problem 13 「大数の和」 †
以下の50桁の数字100個の和の上位10桁を求めよ.
詳細はリンク先を参照のこと。

解法
与えられたデータをテキストファイルにリスト形式で保存しそれを読み込んで集計し目視で上位10桁を抽出します。
それだけです。
この種の言語では読み込んだテキストファイルを組み合わせてコードとして成立させるというテクがあるそうです。


sum([],0):-!.
sum([X|Xs],Result):-sum(Xs,Re),Result is Re+X.
myread(FN):-
	open(FN,read,IS),
         read_term(IS,A,[]),
	sum(A,Ans),
	write(Ans),
	close(IS).
main:-myread('test1.txt').