Io - Random, ReadLine, for loop, if, break(数当てゲーム)

７つの言語 ７つの世界
原著

開発環境

• OS X El Capitan - Apple (OS)
• Emacs (Text Editor)
• Io 2.3 (プログラミング言語)

７つの言語 ７つの世界 (Bruce A. Tate (著)、まつもとゆきひろ (監訳)、田和 勝 (翻訳)、オーム社)の第3章(Io)、3.3(2日目: ソーセージキング)、セルフスタディ2日目、8.を取り組んでみる。

セルフスタディ2日目、8.

コード(Emacs)

#!/usr/bin/env io

n := ((Random value) * 100 + 1) floor

"数(1-100)を入力: " print
m := (ReadLine readLine) asNumber

for(i, 1, 10, 1,
    if(m == n,
       "正解!" println
       break,
       if(m < n,
          "もっと大きい" println,
          "もっと小さい" println
          )
      )
    "数(1-100)を入力: " print
    m = (ReadLine readLine) asNumber
    )

入出力結果(Terminal)

$ ./sample8.io
数(1-100)を入力: 50
もっと大きい
数(1-100)を入力: 75
もっと大きい
数(1-100)を入力: 88
もっと小さい
数(1-100)を入力: 81
もっと大きい
数(1-100)を入力: 84
もっと大きい
数(1-100)を入力: 86
もっと大きい
数(1-100)を入力: 87
正解!
$ ./sample8.io
数(1-100)を入力: 50
もっと大きい
数(1-100)を入力: 75
もっと大きい
数(1-100)を入力: 88
もっと大きい
数(1-100)を入力: 94
正解!
$