このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/347
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#   
#  東北地方の県のデータを打ち出すプログラムを作成しなさい。ただし、東北地方かどうかの判定をする部分は関数を使うこと。 
#  県データの1行からなる構造体を受取る関数とする。該当すればYを戻り値として返すようにする。) 
#  判定をする際の県名の比較は、関数側に県名の二次元配列を持ち、標準関数strcmpを使う。string.h のinclude を忘れないように。 
#  strcmp(文字列1,文字列2) は文字列が一致すれば0を返す。 
#   
#  コード例示: http://ime.nu/minus-k.com/nejitsu/loader/up84923.jpg 
#   県データ: http://ime.nu/minus-k.com/nejitsu/loader/up84924.txt 
#   
#  

東北地方の県のデータを人口密度の小さい順に打ち出す :-
        東北地方の県のデータならび(_東北地方の県のデータならび),
        sort(_東北地方の県のデータならび,_人口密度を鍵に整列した東北地方の県のデータならび),
        write('人口密度,県名,面積,人口\n'),
        append(_,[[[_人口密度,_県名,_面積,_人口]|R],_人口密度を鍵に整列した東北地方の県のデータならび),
        write_formatted('%t,%t,%t,%t,%t\n',[_人口密度,_件名,_面積,_人口]),
        R = [].

東北地方の県のデータならび(_東北地方の県のデータならび) :-
        findall([_人口密度,_県名,_面積,_人口],(
                    県データ(_県名,_面積,_人口),
                    東北地方(_県名),
                    人口密度(_面積,_人口,_人口密度)),
                _東北地方の県のデータならび).

人口密度(_面積,_人口,_人口密度) :-
        _人口密度 is floor((_人口 / _面積) * 10 + 5) / 10.

東北地方('Aomori').
東北地方('Iwate').
東北地方('Akita').
東北地方('Miyagi').
東北地方('Yamagata').
東方地方('Fukushima').

県データ('Hokkaido',5683,83453).
県データ('Aomori',1476,9606).
県データ('Iwate',1416,15278).
県データ('Miyagi',2365,7285).
県データ('Akita',1189',11612).
県データ('Yamagata',1244,9323).
県データ('Fukushima',2127,13782).
県データ('Ibaraki',2985,6096).
県データ('Tochigi',2005,6408).
県データ('Gumma',2025,6363).
県データ('Saitama',6938,3797).
県データ('Chiba',5926,5156).
県データ('Tokyo',12059',2187).
県データ('Kanagawa',8490,2415).
県データ('Niigata',2476,12582).
県データ('Toyama',1121,4247).
県データ('Ishikawa',1181,4185).
県データ('Fukui',829',4189).
県データ('Yamanashi',888,4465).
県データ('Nagano',2214,13585).
県データ('Gifu',2108,10598).
県データ('Shizuoka',3767,7779).
県データ('Aichi',7043,5156).
県データ('Mie',185,576).
県データ('Shiga',1343,4017).
県データ('Kyoto',2644,4613).
県データ('Osaka',8805,1893).
県データ('Hyogo',5551,8392).
県データ('Nara',1443,3691).
県データ('Wakayama',1070,4726).
県データ('Tottori',613,3507).
県データ('Shimane',761,6707).
県データ('Okayama',1951,7112).
県データ('Hiroshima',2879',8477).
県データ('Yamaguchi',1528,6110).
県データ('Tokushima',824,4145).
県データ('Kagawa',1023,1876).
県データ('Ehime',1493,5676).
県データ('Kochi',814,7105).
県データ('Fukuoka',5016,4971).
県データ('Saga',877,2439).
県データ('Nagasaki',1517,4092).
県データ('Kumamoto',1859,7404).
県データ('Oita',1221,6338).
県データ('Miyazaki',1170,7734).
県データ('Kagoshima',1786,9187).
県データ('Okinawa',1318,2271).