%./ary_train.rb[˜/Ruby]
東京から酒田へ行く方法を探します:
経路 1: 
東京からはつばさに乗り、新庄で陸羽西線に乗り換えて酒田まで行きます。
運賃は13350 円です。
経路 2: 東京からはときに乗り、新潟でいなほに乗り換えて酒田まで行きます。
運賃は 13880 円です。
経路 3: 
東京からはときに乗り、新潟できらきらうえつに乗り換えて酒田まで行きます。
運賃は 12790 円です。
経路 4: 
東京からは羽田空港で飛行機に乗り、庄内空港でバスに乗り換えて酒田まで行きます。
運賃は 22810 円です。

#!/usr/koeki/bin/ruby
#coding: euc-jp

i = 0  # 経路の番号をしまう
first = ["つばさ","とき","とき","羽田空港で飛行機"] はじめに乗る列車
change = ["新庄", "新潟", "新潟" ,"庄内空港"] 乗り換え先
second = ["陸羽西線","いなほ","きらきらうえつ","バス"]次の列車
fee = [13350, 13380, 12790, 22810]料金

print("東京から酒田へ行く方法を探します: \n")

while i < first.length

  printf("経路%d: \n", i+1 )
  printf("東京からは%sに乗り%sで%sに乗り換えて酒田まで行きます\n",

first[i], change[i], second[i])
  
  printf("料金は%d円です\n", fee[i])
  i += 1

end

print("検索終了\n")

#!/usr/koeki/bin/ruby
#coding: euc-jp


first = Array.new  最初に乗る列車名
change = Array.new 乗り換え先
second = Array.new 次に乗る列車名
fee = Array.new    料金

n = 0 経路をしまう変数
while train = gets


p train
if /(\S+)\s+(\S+)\s+(\S+)\s+(\d+)/ =˜ train

p train
first[n] = $1
change[n] = $2
second[n] = $3
fee[n] = $4.to_i
n += 1


end

end

p first
p change 
p second 
p fee

i = 0 出力する経路を数える変数
while i < first.length

printf("経路%d: \n", i )
printf("東京からは%sに乗り%sで%sに乗り換えて酒田まで行きます\n",

first[i], change[i], second[i])


printf("料金は%d円です\n", fee[i])

i += 1

end

print("検索終了\n")

実行方法と使われている仕組みをそれぞれみてみよう。

プログラムにデータを噛ませるには

データを取り込みながら表示するには、Kterm でデータを指定する必要がある。 gets の部分で、読ませるデータを 1 行ずつ読むので、

%./ary_stdin.rb train.dat 

とする。

プログラムの構造

while -- end では、 train_data という変数に、 gets でデータを 1 行取り込んできて代入する。

if -- end では、 train_data という変数に入っているデータを分解する。

データの並びが

という組み合わせであることを確認して、 次でデータの分解方法を見ていこう。

実際の検索プログラムでは順番にデータを吐き出すだけであろうか。 他に機能がないか思い出そう。

データの分解

データの分解は、 / / で挟んだパターンが入っているかどうか調べることによって行われる。

=˜ は指定された正規表現が一致するかどうかを調べるときに使う比較演算子である。 正規表現とは、文字列の一致を調べる方法である。 今の場合は以下の正規表現が使われている。

数値文字列を探して取り込む正規表現で取り込んだ中身を p 文で確認せよ。数値を取り込んだ場合、文字列を取り込んだ場合の結果を確認せよ。

正規表現は次週にも続く。 さて、文字列が空白文字を挟んで 4 回現れるため、

となっている。() で優先された文字列は $1, $2, .. と順番に名前をつけられ、それらが配列の各成分として代入されている。

/(優先された文字列 1)優先されない文字列(優先された文字列 2)優先されない文字列 ... / =˜ 変数
# $1 は 優先された文字列 1 を引き取る
# $2 は 優先された文字列 2 を引き取る
:

データが 5 列で並んでいる場合は、 どのように分解する部分を書き換えたらよいだろうか。

組み合わせて探す

+ をつけて文字列や数字の列、空白列をとりだすことができる。

切り出したものを整数値に変換するには、 to_i method を使う必要がある。

整数値の含まれるデータを作り、 データを読み込んで平均を求めるプログラムを作ってみよう。

小数点を取り扱いたいときには

小数点の含まれる数字の列を切り出すには、 . の左右に空白文字列なしで数文字列が並んでいる。 meta character で役割を持つ文字列を通常の文字として探すためには、 \ をつける。

などとしなければならない。 これを小数値に変換するにはいったんとりこんだ文字列に to_f method を使う必要がある。

小数点が含まれるデータを作り、 データを読み込んで平均を求めるプログラムを作ってみよう。

配列の中身のしらべ方

p 文を使うと、配列の中に何が入っているのか、調べることができる。 配列にしまうとき、計算機は計算機用にデータをしまうため、 ユーザが取り出したいときは、EUC-jp に漢字コードを変換しておく必要がある。

設定はプログラムの上の方に記す。 慣習に沿っているので読みやすいプログラムであると判断される。

今日出てきた method で得られる結果を表示させながら自分でも確かめてみよう。

最低運賃を表示するには

最低運賃のプランを出すには、運賃の列を比較して、表示すればよい。 データが 1 行に詰められているので、最低運賃の列を縦にしまい、 その要素番号を記録して他のデータを表示することにする。 まずは最低運賃だけを表示させよう。ary_lowest.rb

#!/usr/koeki/bin/ruby
#coding: euc-jp

price = Array.new 運賃価格をしまう配列
n = 0

データをしまう部分

print("東京から酒田へ行く方法を探します:\n")

while train_data = gets

if /(\S+)\s+(\S+)\s+(\S+)\s+(\d+)/ =˜ train_data


price[n] = $4.to_i
n += 1

end

end


低い運賃プランを選択する部分
low = price[0]とりあえずの最低運賃
nlow = 0最低運賃を持つ要素番号
i = 0最低運賃を調べる要素番号

while i < price.length-1

if price[i] < low

low = price[i]
nlow = i

end
i += 1

end 

printf("最も運賃が低いプランです\n")

printf("\t 運賃は %d 円です\n", price[nlow])

nlow と配列を使って、同じデータ行にあるデータを表示させよう。 完成はこちら。

最低運賃のプランを表示するには

最低運賃だけではなく、プランをまるごと表示させよう。

dept = Array.new出発地をしまう配列
trans = Array.new乗換地をしまう配列
arvl = Array.new当着地をしまう配列
price = Array.new運賃価格をしまう配列

n = 0

データをしまう部分
print("東京から酒田へ行く方法を探します:\n")

while train_data = gets


if /(\S+)\s+(\S+)\s+(\S+)\s+(\d+)/ =˜ train_data

dept[n] = $1
trans[n] = $2
arvl[n] = $3
price[n] = $4.to_i
n += 1

end

end

printf("最も運賃が低いプランです\n")
printf("東京からは %s に乗り、%s で %s に乗り換えて酒田まで行きます \n", 

dept[nlow],trans[nlow],arvl[nlow])

printf("\t 運賃は %d 円です\n",price[nlow])

% cat データ | 印刷するコマンド

%./実行するプログラム 読みこませたいデータ

% cat 読みこませたいデータ | ./実行するプログラム