憂鬱な勇者をGaucheで。

• 「憂鬱な勇者」を作った件 id:hrkt0115311:20080527:1211891558
• 「憂鬱な勇者」がとても面白かったので、 Scheme に移植してみた id:scinfaxi:20080527:1211919944
• 「憂鬱な勇者」を Squeak Smalltalk で - sumim’s smalltalking-tos id:sumim:20080528:p1
• 「憂鬱な勇者」を C# で id:NyaRuRu:20080528:p2

• 階乗の計算にはいろいろマニアックな方法がありますThe Evolution of a Haskell Programmer。
• shuffle関数が便利。
• 変数名に日本語(UTF-8)を使えます。

(use srfi-1)
(use gauche.sequence)

(define (階乗 n) (apply * (iota n 1)))

(define (冒険 レベル スキル モンスター)
  (print "*-----")
  (print モンスター "を倒した!")
  (print (階乗 レベル) "の経験値を得た。")
  (if (>= レベル 30)
    (begin 
      (print "勇者は、また、レベルが上がった！")
      (print "勇者は、ふと空しさを覚えた。"))
    (begin
      (print "勇者は" レベル "にレベルが上がった!")
      (print "勇者は、" スキル "を覚えた。\n\n")
      (print "そして、\nかくかくしかじかで、山あり谷ありの冒険が続いたが割愛。\n"))))

(for-each 冒険
	  (iota 30 1)
	  (shuffle '("焼きたてパン" "強いシャチホコ" "もんじゃ焼き一年生" "怪人ホタテ男" "ニセ勇者"
                     "逃げ足の早いアレ" "睡魔" "煩悩" "愛らしい子犬の中の人" "恋するスズメバチ"
                     "勇敢なクマンバチ" "信じられない物" "勇者の師匠" "浮遊する鎧" "怪盗ドボン"
                     "闇の招き猫" "誘惑のカスタードクリーム" "しょっぱすぎる籠手" "カレー味の兜"
                     "光沢だけは一流の盾" "若葉マークのモンスター" "新緑の季節" "梅雨時の車両のニオイ"
                     "暑すぎる夏" "新宿らしき何か" "やたら発達したドーナツ" "育ちすぎたクマー"
                     "なごやかな雰囲気" "凍り付いた気配" "忍び寄る恐怖" ))
	  (shuffle '("お豆腐の買い方" "鉛筆の買い方" "消しゴムの使い方" "メモの取り方"
                     "攻撃に使えないこともない呪文" "裏町の歩き方" "森林浴" "珈琲の味"
                     "しじみのみそ汁の作り方" "回覧板の回し方" "郵便物の投函方法" "立ち話のコツ"
                     "猫の呼び方" "犬の呼び方" "カラスの呼び方" "鳩専用豆鉄砲" "秘密の趣味" "速く走るコツ"
                     "剣の使い方" "斧の使い方" "まきわりで、まっきわりわり" "聖なる祈り" "孤独"
                     "涼しく過ごすコツ" "お洒落のコツ" "卵をふわっと焼く方法" "ごはんの研ぎ方" 
                     "油汚れの対応方法" "大人の振るまい" "Suicaの使い方")))