これが micro-Quixote プログラム「相撲」です。
(データは１９９３年秋に作成しました。)
&program;;
&subsumption;;
力士>={ローウェンチャドジョージハヘオ,花田光司,サレバアティサノエ,
浪岡貞博,今野満也,鎌苅忠茂,岡本公似,村田昌巳,吉永一美,星村敏志,
綛田清隆,坂本直人,長尾秀平,田村昌浩,山崎直樹,小泉政人,高橋徳夫,
内間良三,久我準人,三浦孝行,小岩井康年,花田勝,松澤英行,
フィヤマルペニタニ,山中勝巳,久嶋啓太,成松伸哉,金尾隆,小林孝也,
馬場口洋一,福薗好文,波田和泰,三浦要平,岩永祥紀,吉岡宏典,尾曽武人,
小岩井昭和,河辺幸夫,濱田真二,古賀博之};;
四股名>={曙太郎,貴ノ花光司,小錦八十吉,貴ノ浪貞博,琴の若實哉,貴闘力忠茂,
三杉里公似,大翔鳳昌巳,霧島和博,剣晃敏志,栃乃和歌清隆,肥後ノ海直哉,
舞の海秀平,琴稲妻佳弘,大翔山直生,水戸泉眞幸,大善尊太,鬼雷砲良蔵,
北勝鬨準人,湊富士孝行,小城錦康年,若ノ花勝,琴錦功宗,武蔵丸光洋,
安芸ノ島勝巳,久島海啓太,智ノ花伸哉,隆三杉太一,琴富士孝也,若翔洋俊一,
寺尾常史,旭道山和泰,琴別府要平,春日富士晃大,時津洋宏典,武双山正士,
小城ノ花昭和,玉海力剛,豊ノ海真二,魁皇博之};;
番付>={横綱,大関,張出大関,関脇,小結,前頭1,前頭2,前頭3,前頭4,前頭5,
前頭6,前頭7,前頭8,前頭9,前頭10,前頭11,前頭12,前頭13,前頭14,
前頭15,前頭16};;
決まり手>={寄り切り,寄り倒し,浴びせ倒し,吊り出し,割り出し,押し出し,
押し倒し,突き出し,突き倒し,掛け投げ,送り出し,送り倒し,
極め出し,極め倒し,腕捻り,突き落とし,引き落とし,外掛け,
内掛け,足取り,はりま投げ,上手投げ,下手投げ,
上手出し投げ,下手出し投げ,裾払い,上手捻り,下手捻り,
取ったり,二丁投げ,蹴手繰り,蹴返し,網打ち,小股すくい,
外小股,渡し込み,引っかけ,叩キ込み,捲き落とし,つかみ投げ};;
&rule;;
横綱/[上位=横綱,下位=大関];;
大関/[上位=横綱,下位=関脇];;
関脇/[上位=大関,下位=小結];;
小結/[上位=関脇,下位=前頭];;
次場所[name=X,番付=Z] <= X/[地位=Y,勝数=WIN],Y/[上位=Z]||
{X=<力士,Y=<番付, WIN#>#13};;
% 数値外部制約呼びだし (<-->bc)
ローウェンチャドジョージハヘオ/[
勝数=14,四股名=曙太郎, 地位=横綱, 出身=米国, 部屋=東関,
生年月日="44.5.8", 年齢=24, 身長=204, 体重=224, 通算出場=392,
通算勝=272, 通算負=120, 通算休=15, 幕内在位=20, 幕内勝=184,
幕内負=86, 幕内休=15, 幕内勝率=".681", 初土俵="63春",
最高位=横綱, 得意技=突き押し, 優勝=5, 三賞="殊4敢2", 金星=4,
星座=牡牛, 血液型="O", 愛称=チャド, 趣味="音楽",
前2場所="名13.2 秋14.1", 家族="独身"];;
花田光司/[
四股名=貴ノ花光司, 地位=大関, 出身=東京, 部屋=二子山,
生年月日="47.8.12", 年齢=21, 身長=185, 体重=143, 通算出場=423,
通算勝=278, 通算負=145, 幕内在位=20, 幕内勝=185, 幕内負=100,
幕内勝率=".649", 初土俵="63春", 最高位=大関, 得意技=右四つ寄り,
優勝=3, 三賞="殊4 敢2 技3", 金星=1, 星座=獅子, 血液型="O",
愛称=コウジ, 趣味="音楽", 前2場所="名13.2 秋12.3", 家族="独身"];;
サレバアティサノエ/[
四股名=小錦八十吉, 地位=張出大関, 出身=米国, 部屋=高砂,
生年月日="38.12.31", 年齢=29, 身長=185, 体重=264, 通算出場=856,
通算勝=574, 通算負=289, 通算休=89, 幕内在位=57, 幕内勝=490,
幕内負=267, 幕内休=83, 幕内勝率=".647", 初土俵="57名",
最高位=大関, 得意技=右四つ突き押し, 優勝=3, 三賞="殊4 敢5 技1",
金星=2, 星座=山羊, 血液型="AB", 愛称=サリー, 趣味="音楽",
前2場所="名9.6 秋0.2.13休", 家族="寿美歌夫人"];;
浪岡貞博/[
四股名=貴ノ浪貞博, 地位=関脇, 出身=青森, 部屋=二子山,
生年月日="46.10.27", 年齢=22, 身長=195, 体重=159, 通算出場=396,
通算勝=232, 通算負=164, 通算休=5, 幕内在位=13, 幕内勝=102,
幕内負=78, 幕内勝率=".567", 初土俵="62春", 最高位=関脇,
得意技=左四つ寄り, 三賞="敢1", 星座=蠍, 血液型="O",
愛称=ナミオカ, 趣味="映画", 前2場所="名9.6 秋10.5", 家族="独身"];;
今野満也/[
四股名=琴の若實哉, 地位=小結, 出身=山形, 部屋=佐渡ヶ嶽,
生年月日="43.5.15", 年齢=25, 身長=192, 体重=167, 通算出場=539,
通算勝=306, 通算負=233, 通算休=16, 幕内在位=18, 幕内勝=129,
幕内負=126, 幕内勝率=".506", 初土俵="59夏", 最高位=小結,
得意技=右四つ寄り, 星座=牡牛, 血液型="B", 愛称=ワカ,
趣味="マンガ", 前2場所="名8.7 秋8.7", 家族="独身"];;
鎌苅忠茂/[
四股名=貴闘力忠茂, 地位=前頭1, 出身=兵庫, 部屋=二子山,
生年月日="42.9.28", 年齢=26, 身長=182, 体重=144, 通算出場=649,
通算勝=363, 通算負=286, 幕内在位=20, 幕内勝=151, 幕内負=134,
幕内勝率=".530", 初土俵="58春", 最高位=関脇, 得意技=突き押し,
三賞="殊1 敢3 技1", 金星=2, 星座=天秤, 血液型="A", 愛称=カマキリ,
趣味="音楽", 前2場所="名8.7 秋7.8", 家族="美絵子夫人"];;
岡本公似/[
四股名=三杉里公似, 地位=前頭2, 出身=滋賀, 部屋=二子山,
生年月日="37.7.1", 年齢=31, 身長=185, 体重=157, 通算出場=977,
通算勝=509, 通算負=468, 通算休=2, 幕内在位=34, 幕内勝=240,
幕内負=255, 幕内勝率=".485", 初土俵="54初", 最高位=小結,
得意技=右四つ寄り, 三賞="敢1", 金星=4, 星座=蟹, 血液型="A",
愛称=コージ, 趣味="音楽 マンガ", 前2場所="名5.10 秋8.7",
家族="友美夫人 1男1女"];;
村田昌巳/[
四股名=大翔鳳昌巳, 地位=前頭3, 出身=北海道, 部屋=立浪,
生年月日="42.5.7", 年齢=26, 身長=187, 体重=144, 通算出場=297,
通算勝=166, 通算負=131, 幕内在位=15, 幕内勝=103, 幕内負=107,
幕内勝率=".490", 初土俵="2初", 最高位=小結,
得意技=突き押し右四つ寄り, 三賞="敢1", 星座=牡牛, 血液型="O",
愛称=チョウジ, 趣味="読書", 前2場所="名5.10 秋9.6", 家族="独身"];;
吉永一美/[
四股名=霧島和博, 地位=前頭4, 出身=鹿児島, 部屋=井筒,
生年月日="34.4.3", 年齢=34, 身長=187, 体重=126, 通算出場=1222,
通算勝=657, 通算負=568, 通算休=40, 幕内在位=57, 幕内勝=421,
幕内負=379, 幕内休=40, 幕内勝率=".526", 初土俵="50春",
最高位=大関, 得意技=左四つ出し投げ, 優勝=1, 三賞="殊3 敢1 技4",
金星=2, 星座=牡羊, 血液型="A", 愛称=アランドロン,
趣味="ゴルフ絵画", 前2場所="名3.12 秋9.6",
家族="菜穂子夫人 1女"];;
星村敏志/[
四股名=剣晃敏志, 地位=前頭5, 出身=大阪, 部屋=高田川,
生年月日="42.6.27", 年齢=26, 身長=190, 体重=134, 通算出場=495,
通算勝=267, 通算負=228, 幕内在位=6, 幕内勝=34, 幕内負=41,
幕内勝率=".453", 初土俵="59九", 最高位=前頭4, 得意技=右四つ寄り,
星座=蟹, 血液型="A", 愛称=サトシ, 趣味="読書",
前2場所="名9.6 秋7.8", 家族="独身"];;
綛田清隆/[
四股名=栃乃和歌清隆, 地位=前頭6, 出身=和歌山, 部屋=春日野,
生年月日="37.5.22", 年齢=31, 身長=191, 体重=157, 通算出場=688,
通算勝=371, 通算負=318, 通算休=19, 幕内在位=42, 幕内勝=308,
幕内負=298, 幕内休=19, 幕内勝率=".517", 初土俵="60春",
最高位=関脇, 得意技=右四つ突き押し, 三賞="殊2 敢3 技1", 金星=3,
星座=双子, 血液型="O", 愛称=カセ, 趣味="陶芸",
前2場所="名10.5 秋6.9", 家族="紀子夫人"];;
坂本直人/[
四股名=肥後ノ海直哉, 地位=前頭7, 出身=熊本, 部屋=三保ヶ関,
生年月日="44.9.23", 年齢=24, 身長=183, 体重=137, 通算出場=141,
通算勝=83, 通算負=58, 幕内在位=5, 幕内勝=30, 幕内負=30,
幕内勝率=".500", 初土俵="4初", 最高位=前頭5, 得意技=左四つ寄り投げ,
星座=天秤, 血液型="A", 愛称=ナオト, 趣味="音楽",
前2場所="名8.7 秋6.9", 家族="独身"];;
長尾秀平/[
四股名=舞の海秀平, 地位=前頭8, 出身=青森, 部屋=出羽海,
生年月日="43.2.17", 年齢=25, 身長=171, 体重=98, 通算出場=275,
通算勝=144, 通算負=131, 幕内在位=14, 幕内勝=92, 幕内負=103,
幕内勝率=".472", 初土俵="2夏", 最高位=前頭6, 得意技=左四つ下手投げ,
三賞="技3", 星座=水瓶, 血液型="B", 愛称=シュウヘイ, 趣味="映画",
前2場所="名4.11 秋9.6", 家族="独身"];;
田村昌浩/[
四股名=琴稲妻佳弘, 地位=前頭9, 出身=群馬, 部屋=佐渡ヶ嶽,
生年月日="37.4.26", 年齢=31, 身長=180, 体重=132, 通算出場=1026,
通算勝=522, 通算負=507, 通算休=30, 幕内在位=31, 幕内勝=206,
幕内負=229, 幕内休=15, 幕内勝率=".474", 初土俵="53春",
最高位=前頭3, 得意技=左四つ寄り, 星座=牡牛, 血液型="O", 愛称=ピヨ,
趣味="音楽 ゴルフ", 前2場所="名5.10 秋9.6", 家族="晴美夫人"];;
山崎直樹/[
四股名=大翔山直生, 地位=前頭10, 出身=石川, 部屋=立浪,
生年月日="41.7.7", 年齢=27, 身長=181, 体重=180, 通算出場=369,
通算勝=196, 通算負=179, 通算休=2, 幕内在位=20, 幕内勝=135,
幕内負=150, 幕内勝率=".474", 初土俵="元初", 最高位=前頭2,
得意技=右四つ寄り下手投げ, 三賞="敢1", 金星=3, 星座=蟹, 血液型="B",
愛称=ヤマ, 趣味="音楽", 前2場所="名5.10 秋8.7", 家族="裕美夫人"];;
小泉政人/[
四股名=水戸泉眞幸, 地位=前頭11, 出身=茨城, 部屋=高砂,
生年月日="37.9.2", 年齢=31, 身長=194, 体重=185, 通算出場=972,
通算勝=542, 通算負=436, 通算休=130, 幕内在位=47, 幕内勝=312,
幕内負=294, 幕内休=84, 幕内勝率=".515", 初土俵="53春",
最高位=関脇, 得意技=右四つ吊り寄り, 優勝=1, 三賞="殊1 敢6",
星座=乙女, 血液型="B", 愛称=イズミちゃん, 趣味="映画 音楽",
前2場所="名9.6 秋4.10.1休", 家族="独身"];;
高橋徳夫/[
四股名=大善尊太, 地位=前頭12, 出身=大阪, 部屋=二所ノ関,
生年月日="39.12.14", 年齢=28, 身長=188, 体重=154, 通算出場=654,
通算勝=353, 通算負=302, 通算休=30, 幕内在位=12, 幕内勝=79,
幕内負=86, 幕内勝率=".479", 初土俵="56春", 最高位=前頭4,
得意技=左四つ寄り, 星座=射手, 血液型="O", 愛称=トク, 趣味="酒",
前2場所="名9.6 秋5.10", 家族="独身"];;
内間良三/[
四股名=鬼雷砲良蔵, 地位=前頭13, 出身=神奈川, 部屋=高田川,
生年月日="41.1.5", 年齢=27, 身長=189, 体重=154, 通算出場=738,
通算勝=386, 通算負=352, 通算休=3, 幕内在位=13, 幕内勝=86,
幕内負=94, 幕内勝率=".478", 初土俵="56春", 最高位=前頭4,
得意技=右四つ寄り, 星座=山羊, 血液型="A", 愛称=ヤザワ,
趣味="トランプ占い", 前2場所="名8.7 秋5.10", 家族="独身"];;
久我準人/[
四股名=北勝鬨準人, 地位=前頭14, 出身=北海道, 部屋=伊勢ノ海,
生年月日="41.1.1", 年齢=27, 身長=183, 体重=149, 通算出場=826,
通算勝=431, 通算負=396, 通算休=22, 幕内在位=22, 幕内勝=136,
幕内負=164, 幕内休=15, 幕内勝率=".453", 初土俵="56夏",
最高位=前頭4, 得意技=右四つ寄り, 星座=山羊, 血液型="A",
愛称=ファジー, 趣味="釣り", 前2場所="名5.10 秋6.9",
家族="佳代夫人"];;
三浦孝行/[
四股名=湊富士孝行, 地位=前頭15, 出身=群馬, 部屋=湊,
生年月日="43.7.6", 年齢=25, 身長=186, 体重=157, 通算出場=454,
通算勝=249, 通算負=205, 通算休=17, 幕内在位=3, 幕内勝=14,
幕内負=16, 幕内勝率=".467", 初土俵="59春", 最高位=前頭8,
得意技=右四つ下手投げ, 星座=蟹, 血液型="A", 愛称=ミウラ,
趣味="カメラ", 前2場所="名9.6 秋5.10", 家族="独身"];;
小岩井康年/[
四股名=小城錦康年, 地位=前頭16, 出身=千葉, 部屋=出羽海,
生年月日="46.7.8", 年齢=22, 身長=186, 体重=135, 通算出場=357,
通算勝=204, 通算負=155, 通算休=12, 幕内在位=3, 幕内勝=13,
幕内負=17, 幕内勝率=".433", 初土俵="62春", 最高位=前頭10,
得意技=左四つ寄り, 星座=蟹, 血液型="A", 愛称=ヤス, 趣味="テレビ",
前2場所="名4.11 秋9.6(十)", 家族="独身"];;
花田勝/[
四股名=若ノ花勝, 地位=大関, 出身=東京, 部屋=二子山,
生年月日="46.1.20", 年齢=22, 身長=179, 体重=118, 通算出場=397,
通算勝=247, 通算負=155, 通算休=7, 幕内在位=20, 幕内勝=161,
幕内負=117, 幕内休=7, 幕内勝率=".579", 初土俵="63春", 最高位=大関,
得意技=左四つ寄り上手投げ, 優勝=1, 三賞="殊3技6", 金星=2,
星座=山羊, 血液型="B", 愛称=マサル, 趣味="音楽 車",
前2場所="名13.2 秋9.6", 家族="独身"];;
松澤英行/[
四股名=琴錦功宗, 地位=関脇, 出身=群馬, 部屋=佐渡ヶ嶽,
生年月日="43.6.8", 年齢=25, 身長=176, 体重=136, 通算出場=655,
通算勝=381, 通算負=274, 幕内在位=28, 幕内勝=233, 幕内負=172,
幕内勝率=".575", 初土俵="59春", 最高位=関脇, 得意技=突き押し,
優勝=1, 三賞="殊4敢3技3", 金星=2, 星座=双子, 血液型="B",
愛称="ニシキ マツ", 趣味="音楽 ファミコン",
前2場所="名12.3 秋9.6", 家族="佳子夫人 1女"];;
フィヤマルペニタニ/[
四股名=武蔵丸光洋, 地位=張出関脇, 出身=米国, 部屋=武蔵川,
生年月日="46.5.2", 年齢=22, 身長=191, 体重=187, 通算出場=280,
通算勝=185, 通算負=95, 幕内在位=13, 幕内勝=112, 幕内負=68,
幕内勝率=".622", 初土俵="元秋", 最高位=関脇, 得意技=突き押し,
三賞="敢1技1", 星座=牡牛, 血液型="A", 愛称=マル,
趣味="トレーニング", 前2場所="名8.7 秋8.7", 家族="独身"];;
山中勝巳/[
四股名=安芸ノ島勝巳, 地位=小結, 出身=広島, 部屋=二子山,
生年月日="42.3.16", 年齢=26, 身長=174, 体重=142, 通算出場=758,
通算勝=423, 通算負=336, 通算休=28, 幕内在位=34, 幕内勝=248,
幕内負=219, 幕内休=28, 幕内勝率=".531", 初土俵="57春",
最高位=関脇, 得意技=左四つ寄り, 三賞="殊6敢5技1", 金星=15,
星座=魚, 血液型="A", 愛称=アキちゃん, 趣味="音楽 ビデオ",
前2場所="名9.6 秋9.6", 家族="素子さんと婚約中"];;
久嶋啓太/[
四股名=久島海啓太, 地位=前頭1, 出身=和歌山, 部屋=出羽海,
生年月日="40.8.6", 年齢=28, 身長=187, 体重=192, 通算出場=464,
通算勝=248, 通算負=218, 通算休=3, 幕内在位=26, 幕内勝=184,
幕内負=188, 幕内休=3, 幕内勝率=".495", 初土俵="63初",
最高位=前頭1, 得意技=右四つ寄り, 三賞="敢2", 金星=2, 星座=獅子,
血液型="AB", 愛称=クッシー, 趣味="音楽", 前2場所="名5.10 秋12.3",
家族="綾子夫人"];;
成松伸哉/[
四股名=智ノ花伸哉, 地位=前頭2, 出身=熊本, 部屋=立浪,
生年月日="39.6.23", 年齢=29, 身長=173, 体重=113, 通算出場=118,
通算勝=77, 通算負=41, 幕内在位=3, 幕内勝=18, 幕内負=12,
幕内勝率=".600", 初土俵="4春", 最高位=前頭2, 得意技=右四つ下手投げ,
三賞="技1", 星座=蟹, 血液型="A", 愛称=センセイ, 趣味="音楽",
前2場所="名9.6 秋9.6", 家族="千秋夫人 1男"];;
金尾隆/[
四股名=隆三杉太一, 地位=前頭3, 出身=神奈川, 部屋=二子山,
生年月日="36.3.1", 年齢=32, 身長=179, 体重=147, 通算出場=1288,
通算勝=645, 通算負=644, 通算休=46, 幕内在位=60, 幕内勝=397,
幕内負=462, 幕内休=26, 幕内勝率=".462", 初土俵="51春",
最高位=小結, 得意技=右ノド輪押し, 金星=1, 星座=魚, 血液型="AB",
愛称=ドラえもん, 趣味="カラオケ 食べ歩き", 前2場所="名7.8 秋8.7",
家族="留美子夫人"];;
小林孝也/[
四股名=琴富士孝也, 地位=前頭4, 出身=千葉, 部屋=佐渡ヶ嶽,
生年月日="39.10.28", 年齢=29, 身長=190, 体重=140, 通算出場=894,
通算勝=463, 通算負=432, 幕内在位=32, 幕内勝=223, 幕内負=242,
幕内勝率=".480", 初土俵="55春", 最高位=関脇, 得意技=左四つ寄り,
優勝=1, 三賞="敢2", 金星=2, 星座=蠍, 血液型="B", 愛称=オースギ,
趣味="音楽 ゴルフ", 前2場所="名11.4 秋6.9",
家族="美由紀夫人 1女"];;
馬場口洋一/[
四股名=若翔洋俊一, 地位=前頭5, 出身=東京, 部屋=二子山,
生年月日="41.3.8", 年齢=27, 身長=182, 体重=165, 通算出場=605,
通算勝=346, 通算負=259, 通算休=36, 幕内在位=11, 幕内勝=71,
幕内負=79, 幕内勝率=".473", 初土俵="56夏", 最高位=関脇,
得意技=左四つ寄り, 三賞="敢2", 星座=魚, 血液型="B", 愛称=ババ,
趣味="音楽", 前2場所="名7.8 秋5.10", 家族="独身"];;
福薗好文/[
四股名=寺尾常史, 地位=前頭6, 出身=鹿児島, 部屋=井筒,
生年月日="38.2.2", 年齢=30, 身長=186, 体重=114, 通算出場=1046,
通算勝=528, 通算負=518, 幕内在位=52, 幕内勝=360, 幕内負=405,
幕内勝率=".471", 初土俵="54名", 最高位=関脇,
得意技=モロ差し突っ張り, 三賞="殊1敢2技1", 金星=5, 星座=水瓶,
血液型="A", 愛称=アビ, 趣味="プロレス 音楽",
前2場所="名8.7 秋6.9", 家族="独身"];;
波田和泰/[
四股名=旭道山和泰, 地位=前頭7, 出身=鹿児島, 部屋=大島,
生年月日="39.10.14", 年齢=29, 身長=183, 体重=107, 通算出場=819,
通算勝=419, 通算負=400, 幕内在位=30, 幕内勝=206, 幕内負=229,
幕内勝率=".474", 初土俵="55夏", 最高位=小結, 得意技=右四つ寄り,
三賞="殊2敢2", 金星=1, 星座=天秤, 血液型="O", 愛称=南海のハブ,
趣味="映画 音楽", 前2場所="名4.11 秋8.7", 家族="独身"];;
三浦要平/[
四股名=琴別府要平, 地位=前頭8, 出身=大分, 部屋=佐渡ヶ嶽,
生年月日="40.10.17", 年齢=28, 身長=178, 体重=175, 通算出場=522,
通算勝=306, 通算負=218, 通算休=81, 幕内在位=7, 幕内勝=37,
幕内負=37, 幕内休=16, 幕内勝率=".500", 初土俵="56春",
最高位=前頭3, 得意技=突き押し, 三賞="敢1", 星座=天秤, 血液型="B",
愛称=ベップ, 趣味="音楽", 前2場所="名9.6 秋5.10",
家族="鈴さんと婚約中"];;
岩永祥紀/[
四股名=春日富士晃大, 地位=前頭9, 出身=宮城, 部屋=安治川,
生年月日="41.2.20", 年齢=27, 身長=177, 体重=144, 通算出場=805,
通算勝=403, 通算負=402, 幕内在位=27, 幕内勝=179, 幕内負=211,
幕内勝率=".459", 初土俵="56春", 最高位=前頭1, 得意技=突き押し,
三賞="敢1", 星座=魚, 血液型="O", 愛称=トリ, 趣味="音楽",
前2場所="名9.6 秋7.8", 家族="智子夫人"];;
吉岡宏典/[
四股名=時津洋宏典, 地位=前頭10, 出身=徳島, 部屋=時津風,
生年月日="44.8.2", 年齢=24, 身長=188, 体重=184, 通算出場=477,
通算勝=257, 通算負=220, 幕内在位=9, 幕内勝=56, 幕内負=64,
幕内勝率=".467", 初土俵="60春", 最高位=前頭4, 得意技=右四つ寄り,
星座=獅子, 血液型="O", 愛称=ヨシオカ, 趣味="ビデオ",
前2場所="名5.10 秋7.8", 家族="独身"];;
尾曽武人/[
四股名=武双山正士, 地位=前頭11, 出身=茨城, 部屋=武蔵川,
生年月日="47.2.14", 年齢=21, 身長=183, 体重=160, 通算出場=59,
通算勝=43, 通算負=16, 幕内在位=2, 幕内勝=9, 幕内負=6,
幕内勝率=".600", 初土俵="5初", 最高位=前頭11,
得意技=突き押し左四つ寄り, 星座=水瓶, 血液型="O",
愛称=パワーエンジェル, 趣味="バラエティ番組観賞",
前2場所="名11.4(十) 秋9.6", 家族="独身"];;
小岩井昭和/[
四股名=小城ノ花昭和, 地位=前頭12, 出身=千葉, 部屋=出羽海,
生年月日="42.11.18", 年齢=25, 身長=189, 体重=138, 通算出場=613,
通算勝=336, 通算負=279, 通算休=23, 幕内在位=20, 幕内勝=128,
幕内負=152, 幕内休=5, 幕内勝率=".457", 初土俵="58名",
最高位=前頭2, 得意技=左四つ寄り上手投げ, 星座=蠍, 血液型="AB",
愛称=オギ, 趣味="テレビ", 前2場所="名4.11 秋7.8",
家族="由里子夫人"];;
河辺幸夫/[
四股名=玉海力剛, 地位=前頭13, 出身=東京, 部屋=片男波,
生年月日="41.7.16", 年齢=27, 身長=183, 体重=144, 通算出場=672,
通算勝=354, 通算負=319, 通算休=2, 幕内在位=7, 幕内勝=33,
幕内負=55, 幕内休=2, 幕内勝率=".375", 初土俵="57春", 最高位=前頭8,
得意技=右四つ寄り, 星座=蟹, 血液型="A", 愛称=ガンテツ, 趣味="酒",
前2場所="名8.7(十) 秋8.7", 家族="独身"];;
濱田真二/[
四股名=豊ノ海真二, 地位=前頭14, 出身=福岡, 部屋=二子山,
生年月日="40.9.22", 年齢=28, 身長=189, 体重=219, 通算出場=821,
通算勝=426, 通算負=395, 幕内在位=28, 幕内勝=189, 幕内負=216,
幕内勝率=".467", 初土俵="56春", 最高位=前頭1, 得意技=左四つ寄り,
星座=乙女, 血液型="A", 愛称=ハマー, 趣味="マンガ",
前2場所="名7.8 秋7.8", 家族="独身"];;
古賀博之/[
四股名=魁皇博之, 地位=前頭15, 出身=福岡, 部屋=友綱,
生年月日="47.7.24", 年齢=21, 身長=184, 体重=154, 通算出場=302,
通算勝=172, 通算負=130, 通算休=17, 幕内在位=2, 幕内勝=4,
幕内負=11, 幕内勝率=".267", 初土俵="63春", 最高位=前頭15,
得意技=左四つ上手投げ, 星座=獅子, 血液型="A", 愛称=キンタ,
趣味="マンガ", 前2場所="名10.5(十) 秋10.5(十)", 家族="独身"];;
&end.
%%%%%% Question 1. 〔若の花の次の番付は?〕
?-次場所[name=花田勝,番付=X].
(Answer):
yes.
X = 横綱 if { 花田勝.勝数==_V1, _V1#>#13 }
% 〔もし13より多ければ次の番付は横綱〕
%%%%%% Question 2. 〔14勝したとしたら、若の花の次の番付は?〕
%%%%%% プログラムを付け加えて質問を行なう。
?-次場所[name=花田勝,番付=X];;
&program;;
&rule;;
花田勝/[勝数=14]<=花田勝;;
&end.
(Answer):
yes.
X = 横綱 if { 花田勝.勝数==_V1, _V1#>#13 }
% depth-first探索、解のマージがないために1と同じ答えも
% 出てしまう。(KL1版のQuixoteとは動きが異なる)
X = 横綱
% 〔次の番付は横綱〕