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

「プロジェクトオイラー問13」の編集履歴(バックアップ)一覧はこちら

プロジェクトオイラー問13」の最新版変更点

追加された行は青色になります。

削除された行は赤色になります。

 http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2013
 
 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').