Rubyプログラミング基礎講座
練習問題解答例

練習問題 2

1. hw.rb

   #!/usr/local/bin/ruby
   print "世界のみなさんこんにちは!\n"
   print "世界のみなさんこんにちは!\n"
   print "世界のみなさんこんにちは!\n"
   

   print "〜〜\n" のかわりに puts "〜〜"でも良い。

2. 修正後のgatagata.rb

   #!/usr/local/bin/ruby
   
   x = gets.chomp.to_i
   if x > 0
     printf("%d は正の数ね\n", x)
   end
   

   Emacsで編集している場合は、全ての行で[TAB] (またはC-i)をタイプして揃える。

練習問題 3

1. 1. 8

   2. 8

   3. 20

   4. "999"

2. 1. 0回。ifの比較で 5 > 5となり 不成立となるため。

   2. 5回。xの値が 5, 4, 3, 2, 1 のときに 内部を実行する。一般的にN回繰り返したい場合は

      x=N
      while x>0
       :
      end
      

      または、

      x=0
      while x<N
       :
      end
      

      とループ形成する。これらのやり方はwhile構文のある 他の言語でも同じ。Rubyの場合はさらに、

      N.times do |i|
       :
      end
      

      や、

      for i in 1..N
       :
      end
      

      などの便利な構文が豊富にある。

   3. 50回。0〜99の範囲の偶数の個数だけ実行する。

3. 1. if y%400 == 0 then
        puts "閏年"
      end
      

   2. if y%4 != 0 then
        puts "閏年でない"
      end
      

   3. if y%4 == 0 && y%100 != 0 then
        puts "閏年"
      end
      

   4. if y%4 != 0 || y%100 == 0 && y%400 != 0 then
        puts "閏年でない"
      end
      

練習問題 4

1. gomasuri.rb

   #!/usr/local/bin/ruby
   n = gets.to_i
   i=0
   while i < n
     puts "きみは天才!"
     i += 1
   end
   

2. homegoroshi.rb

   #!/usr/local/bin/ruby
   while true
     puts "きみは天才!"
   end
   

3. rectangle.rb

   #!/usr/local/bin/ruby
   STDERR.print "長方形の面積を求めます。\n"
   STDERR.print "底辺は?(cm): "
   width = gets.to_i
   STDERR.print "高さは?(cm): "
   height = gets.to_i
   printf("面積は%d平方cmです\n", width*height)
   

   STDERR.はなくても本質的間違いではない。 以下のプログラムも同様。

4. jetcoaster.rb

   #!/usr/local/bin/ruby
   STDERR.print "恐れ入りますが身長をcmで入力してください: "
   tall = gets.to_i
   if tall >= 120 && tall <= 180 then
     print "搭乗できます\n"
   else
     print "申し訳ありませんが搭乗できません\n"
   end
   

   この問題の場合は、比較で利用している不等号に= はあってもなくても構わない。

5. kingin.rb

   #!/usr/local/bin/ruby
   STDERR.print "現在の年齢は?: "
   age = gets.to_i
   STDERR.print "今年の西暦は?: "
   year = gets.to_i
   while age < 100
     age += 1
     year += 1
     printf("%d年であなたは%d歳です。\n", year, age)
   end
   

6. shopping.rb

   #!/usr/local/bin/ruby
   total = 0
   while true
     STDERR.print "商品名は?: "
     item = gets.chomp
     if item == "q" then
       break
     end
     STDERR.print "おいくら?: "
     price = gets.to_i
     printf("%-14s %5d円\n", item, price)
     total += price
   end
   print "お買い上げありがとうございました。\n"
   printf("合計は%6d円です。\n", total)
   

練習問題 5

1. 1. /./ → 1, 2, 3, 4
   2. /e./ → 1, 2, 3, 4

      .は「任意の1字」なのでeの文字の後に 何か文字があればその行は全てマッチする。

   3. /the/ → 3

      1行目のTheはTが違うのでマッチしない。

   4. /the/i → 1, 3

      大文字でもよくなるので今度は1行目のTheもマッチする。

   5. /[A-Z]/ → 1, 2, 4

      大文字のある行全てにマッチする。

   6. /^[A-Z]/ → 1

      行頭が大文字の行にマッチする。

   7. /[^A-Z]/ → 1, 2, 3, 4

      大文字以外のものは全ての行にある。

   8. /[a-z][A-Z]/ → 2

      小文字のあとに大文字が来るのは2行目の OggVorbis のみ。

   9. /\d/ → 1, 2
   10. /\d*/ → 1, 2, 3, 4

       *ならば直前の\dが0回でも 構わない。よって全てにマッチする。

   11. /\d+/ → 1, 2

       数字が1つ以上あれば良い。

   12. /\d*[A-Z]/ → 1, 2, 4

       \d* は数字がなくても良いのだから大文字のある 行全てにマッチする。

   13. /\d.*[A-Z]/ → 1, 2

       数字の見つかった場所より後に大文字があれば良い。

   14. /(.)\1/ → 2, 4

       同じ文字が繰り返し現れるのは2行目のOggVorbis(のg)と 4行目のbuffer(のf)。

2. 実際に実行してみよ。

練習問題 6

1. pts-sum.rb

   #!/usr/local/bin/ruby
   
   pts = [198, 37, 66, 28, 33, 45, 46, 32, 2, 99]
   sum=0
   for x in pts
     sum += x
   end
   printf("%d\n", sum)
   

2. pts-avg.rb

   #!/usr/local/bin/ruby
   
   pts = [198, 37, 66, 28, 33, 45, 46, 32, 2, 99]
   sum=0
   for x in pts
     sum += x
   end
   printf("%f\n", sum.to_f/pts.length)
   

   整数だけなのでそのまま計算すると割り算も整数化される。 to_f で浮動小数点数に変換してから割り算する。

3. pts-minmax.rb

   #!/usr/local/bin/ruby
   
   pts = [198, 37, 66, 28, 33, 45, 46, 32, 2, 99]
   sum=0
   min = max = pts[0]
   for x in pts
     sum += x
     if min > x then
       min = x
     elsif max < x then
       max = x
     end
   end
   printf("平均値 %f\n", sum.to_f/pts.length)
   printf("最大値 %d\n", max)
   printf("最小値 %d\n", min)
   

4. tac.rb

   #!/usr/local/bin/ruby
   buffer = []
   n=0
   while str = gets
     buffer[n] = str
     n += 1
   end
   for l in buffer.reverse
     print l
   end
   

   もっとも短く書くと

   #!/usr/local/bin/ruby
   print readlines.reverse
   

   となる。

5. register.rb

   #!/usr/local/bin/ruby
   name = []			# 商品名を配列にいれる
   value = []			# 価格を配列にいれる
   total = 0			# 価格の合計
   nitem = 0			# 読み取った商品の数
   while true
     STDERR.print "商品名は?: "
     item = gets
     if item == nil then		# 入力終わりなら gets はnilを返す
       break
     end
     name[nitem] = item.chomp!
     STDERR.print "おいくら?: "
     price = gets.to_i
     value[nitem] = price
     total += price
     nitem += 1
   end
   
   i=0
   puts ""				# 改行するだけ
   print "お買い上げありがとうございました。\n"
   while i < nitem 
     printf("%-14s %5d円\n", name[i], value[i])
     i += 1
   end
   puts "----------------------------"
   printf("%-13s %6d円です。\n", "合計は", total)
   

練習問題 7

1. fcat.rb

   #!/usr/local/bin/ruby
   STDERR.print "見たいファイルは?: "
   fn = gets.chomp
   open(fn, "r") do |f|
     while fline=f.gets
       print fline
     end
   end
   

2. fcat2.rb

   #!/usr/local/bin/ruby
   STDERR.print "見たいファイルは?: "
   fn = gets.chomp
   if test(?r, fn) then
     open(fn, "r") do |f|
       while fline=f.gets
         print fline
       end
     end
   else
     STDERR.print "そんなファイル読めないよ\n"
   end
     
   

3. fcat3.rb

   #!/usr/local/bin/ruby
   STDERR.print "見たいファイルは?: "
   fn = gets.chomp
   begin
     open(fn, "r") do |f|
       while fline=f.gets
         print fline
       end
     end
   rescue
     STDERR.print "そんなファイル読めないよ\n"
   end
   

4. sushikuine.rb

   #!/usr/local/bin/ruby
   
   sum = 0
   menu = []
   price = []
   i = 0
   
   open("price.txt", "r") do |neta| # price.txtを読み込みモードで開く
     while line = neta.gets	 # ファイルから1行ずつ読む
       if /(\w+)\s+(\d+)円/e =~ line # (数字)円 というパターンがあれば
         menu[i]  = $1		 # $1 は商品名
         price[i] = $2.to_i	 # $2 が「数字」に当てはまるので整数化
       end
       i += 1
     end
   end
   
   while true
     j=0
     while j<i
       # 商品番号と、ネタ名、価格を出力
       printf("%3d %s - %d\n", j, menu[j], price[j])
       j+=1
     end
   
     print "御注文は(番号で入れてね、q で終了)?: "
     line=gets.chomp!		# ユーザの入力を line に入れる
     if line == "q"		# "q" を入力したら
       break			#    終了
     end
     number = line.to_i		# 整数(メニュー番号)にする
     if number < 0 || number >= i
       puts "そんなメニューねぇでガス"
       redo
     end
     printf("はぁ〜い、「%s」一丁\n", menu[number])
     sum += price[number]
   end
   
   print "おあいそでガス\n"
   printf("全部で %d 円でガス。まいどっ\n", sum)
   

5. parking.rb

   #!/usr/local/bin/ruby
   
   begin
     open("parking.tmpl", "r") do |pr|
       open("parking.txt", "w") do |pw|
         while pl=pr.gets
   	if /%DATE%/ =~ pl then
   	  pw.puts Time.now.strftime("%Y年%m月%d日")
   	else
   	  pw.print pl
   	end
         end
       end
     end
     STDERR.puts "本日分の駐車券を作成しました。"
     STDERR.puts "parking.txtを印刷して利用してください。"
   rescue
     STDERR.puts "parking.tmplを用意したうえで、。"
     STDERR.puts "parking.txtに結果が書き出せるようにしておいてください。"
     STDERR.puts "よろしう。"
   end
   

6. customreg.rb

   #!/usr/local/bin/ruby
   name = []			# 商品名を配列にいれる
   value = []			# 価格を配列にいれる
   total = 0			# 価格の合計
   nitem = 0			# 読み取った商品の数
   
   begin
     # テンプレートファイルを開く
     open("register.tmpl", "r") do |tp|
       while true
         STDERR.print "商品名は?: "
         item = gets
         if item == nil then		# 入力終わりなら gets はnilを返す
   	break
         end
         name[nitem] = item.chomp!
         STDERR.print "おいくら?: "
         price = gets.to_i
         value[nitem] = price
         total += price
         nitem += 1
       end
   
       i=0
       puts ""				# 改行するだけ
       while template=tp.gets
         if /%SUMMARY%/ =~ template
   	# テンプレートファイルに %SUMMARY% という行があったら
   	# その部分の代わりに買い物情報を出力
   	while i<nitem 
   	  printf("%-14s %5d円\n", name[i], value[i])
   	  i += 1
   	end
   	puts "- "*17
   	print "お買い上げありがとうございました。\n"
   	printf("合計は%6d円です。\n", total)
         elsif /%DATE%/ =~ template then
   	puts Time.now.strftime("%Y年%m月%d日")
         else
   	print template
         end
       end
     end
   rescue
     STDERR.puts "register.tmplを用意してからプログラムを起動してください。"
   end
   

練習問題 8

1. 10進数	2進数	16進数	7進数
   2005	11111010101	7d5	5563
   42	101010	2a	60
   3054	101111101110	bee	11622
   194	11000010	c2	365

2. J	a	p	a	n	!
   0x4a	0x61	0x70	0x61	0x6e	0x21

練習問題 9

1. last1c.rb

   #!/usr/local/bin/ruby
   while l=gets
     print l[-2..-1]
   end
   

2. hyphen.rb

   #!/usr/local/bin/ruby
   while l=gets
     l.chomp!
     print l+"-"*(80-l.length)+"\n"
   end
   

3. randq.rb

   #!/usr/local/bin/ruby
   m = ["世界で一番高い山は?", "日本で一番高い山は?",
     "エトセトラ、を表す3文字の略語は?",
     "高速道路で料金を自動的に払うシステムの略称は?"]
   srand()
   puts m[rand(m.length)]
   

4. qpod.rb

   #!/usr/local/bin/ruby
   question=[]
   answer=[]
   n = 0
   begin
     open("quiz.dat", "r") do |q|
       while line=q.gets
         question[n] = line.chomp
         answer[n] = q.gets.chomp
         n+=1
       end
     end
   rescue
     STDERR.puts "quiz.datに問題&解答集を用意してね"
     exit(0)
   end
   
   i=0
   while i<n
     printf("問題: %s(答を見るには[Return])\n", question[i])
     gets				# [Return]で先に進む
     printf("答: %s\n", answer[i])
     i+=1
   end
   

5. shuffle.rb

   #!/usr/local/bin/ruby
   x = (0..52).collect
   i=0
   srand()				# 乱数の種を初期化
   while i<x.length
     t=rand(x.length)		# 交換相手を探す
     tmp=x[i]
     x[i] = x[t]
     x[t] = tmp
     i += 1
   end
   p x				# xを配列のまま出力
   

6. qpod-shuffle.rb

   #!/usr/local/bin/ruby
   question=[]
   answer=[]
   n = 0
   begin
     open("quiz.dat", "r") do |q|
       while line=q.gets
         question[n] = line.chomp
         answer[n] = q.gets.chomp
         n+=1
       end
     end
   rescue
     STDERR.puts "quiz.datに問題&解答集を用意してね"
     exit(0)
   end
   
   # シャッフルする
   srand()
   i=0
   while i<question.length
     t=rand(question.length)
     # まず、question[i]とquestion[t]を交換
     tmp=question[i]
     question[i] = question[t]
     question[t] = tmp
     # answer[i]とanswer[t]を交換
     tmp=answer[i]
     answer[i] = answer[t]
     answer[t] = tmp
     i+=1
   end
   
   i=0
   while i<n
     printf("問題: %s(答を見るには[Return])\n", question[i])
     gets				# [Return]で先に進む
     printf("答: %s\n", answer[i])
     i+=1
   end
   

7. janken.rb

   #!/usr/local/bin/ruby
   
   janken = ["グー", "チョキ", "パー"]
   while true
     STDERR.puts "じゃんけんしましょ、"
     STDERR.print "あなたの手は? [グーなら0、チョキなら1、パーなら2]: "
     j = gets
     if j == nil then
       break
     end
     human=j.to_i
     if human < 0 || human > 2 then
       STDERR.puts "ちゃんと出してね。0, 1, 2のどれかだよ。"
       redo
     end
     com = rand(3)
     printf("あなた「%s」 : 「%s」わたし\n",
   	 janken[human], janken[com])
     if human==0 && com==1 || human==1 && com==2 || human==2 && com==0 then
       puts "があ〜ん負けちゃったー! 強いのね。"
     elsif human==com then
       puts "おっと引き分けだ。仲良しこよし。"
     else
       puts "やったー、勝ったー! よわよわじゃん。"
     end
     STDERR.print "もういちど"
   end
   STDERR.puts "\nあらもうおしまい? さようなら!"
   

8. jankenstat.rb

   #!/usr/local/bin/ruby
   
   win=lose=draw=0			# 勝ち、負け、引き分け
   janken = ["グー", "チョキ", "パー"]
   while true
     STDERR.puts "じゃんけんしましょ、"
     STDERR.print "あなたの手は?"
     STDERR.print "[グーなら0、チョキなら1、パーなら2]: "
     j = gets
     if j == nil then
       break
     end
     human=j.to_i
     if human < 0 || human > 2 then
       STDERR.puts "ちゃんと出してね。0, 1, 2のどれかだよ。"
       redo
     end
     com = rand(3)
     printf("あなた「%s」 : 「%s」わたし\n",
   	 janken[human], janken[com])
     if human==0 && com==1 ||
         human==1 && com==2 ||
         human==2 && com==0 then
       puts "があ〜ん負けちゃったー! 強いのね。"
       win += 1
     elsif human==com then
       puts "おっと引き分けだ。仲良しこよし。"
       draw += 1
     else
       puts "やったー、勝ったー! よわよわじゃん。"
       lose += 1
     end
     STDERR.print "もういちど"
   end
   STDERR.puts "\nあらもうおしまい? さようなら!"
   printf("あなたの戦績: %d勝%d敗%d分け\n",
          win, lose, draw)
   

練習問題 10

1. 数学的関数f(x)に相当するメソッド。

   def f(x)
     x**2+3*x-1
   end
   

2. rectangleメソッド。

   def rectangle(width, height)
     width*height
   end
   

3. leapメソッド。

   def leap(y)
     if y%4!=0 || y%100==0 && y%400!=0 then
       365
     else
       366
     end
   end
   

   このロジックは、閏年判定に用いられる。

4. tagifyメソッド。

   def tagify(element, content)
     "<"+element+">"+content+"</"+element+">"
   end
   

5. pre.rb

   #!/usr/local/bin/ruby
   
   def tagify(element, content)
     "<"+element+">"+content+"</"+element+">"
   end
   
   while sentence=gets
     printf("%s\n", tagify("pre", sentence.chomp!))
   end
   

6. sflメソッド。

   def sfl(arr)
     tmp=arr[0]
     arr[0]=arr[-1]
     arr[-1]=tmp
     arr
   end
   

練習問題 11

1. プログラムの前半と後半に分けて例を載せる。前半には エラー処理を記述する。

   #!/usr/local/bin/ruby
   
   if ARGV[0] == nil then
     STDERR.puts "出力回数を指定してください。"
     STDERR.puts "例: ./nhello.rb 5"
     exit(1)
   end
   

   後半は、ARGV[0]を整数に直して(to_i)、 その回数だけ puts "Hello, world!" する。様々な方法があるので 以下のその1〜その5のどれかを選択する。

   # その1
   ARGV[0].to_i.times do
     puts "Hellow, wowrld!"
   end
   # その2
   ARGV[0].to_i.downto(1) do |i|
     puts "Hellow, wowrld!"
   end
   # その3
   1.upto(ARGV[0].to_i) do |i|
     puts "Hellow, wowrld!"
   end
   # その4
   for i in 1..(ARGV[0].to_i)
     puts "Hellow, wowrld!"
   end
   # その5
   1.step(ARGV[0].to_i, 1) do |i|
     puts "Hellow, wowrld!"
   end
   

2. copy.rb

   #!/usr/local/bin/ruby
   
   if ARGV[1] == nil
     STDERR.puts "ファイルをコピーします。"
     STDERR.puts "./copy.rb コピー元 コピー先"
     exit(1)
   end
   
   # ARGV[0]がコピー元ファイル。読めるかチェック。
   if test(?r, ARGV[0]) then
     open(ARGV[0], "r") do |src|
       open(ARGV[1], "w") do |dst|
         while s=src.gets
   	dst.print s
         end
       end
     end
   end
   

3. backup.rb

   #!/usr/local/bin/ruby
   
   if ARGV[0] == nil
     STDERR.puts "ファイルをバックアップします。"
     STDERR.puts "./backup.rb ファイル名"
     exit(1)
   end
   
   # ***** (A) *****
   # ARGV[0]がコピー元ファイル。読めるかチェック。
   if !test(?r, ARGV[0]) then
     STDERR.printf("%s ファイルは読めません\n", ARGV[0])
     exit(2)
   end
   n=1			# 拡張子。1からスタート。
   while true
     # 元の名前とnからバックアップファイル名を生成
     backup = sprintf("%s.%d", ARGV[0], n)
     if !test(?r, backup)	# 存在しなければ
       break		# ループを抜ける
     end
     n += 1
   end
   
   open(ARGV[0], "r") do |src|
     open(backup, "w") do |dst|
       while s=src.gets
         dst.print s
       end
     end
   end
   STDERR.printf("[%s] --> [%s]\n", ARGV[0], backup)
   # ***** (B) *****
   

4. 前問のbackup.rbのソース中にある 「***** (A) *****」の部分に

   while ARGV[0]

   を、「***** (B) *****」の部分に

     ARGV.shift
   end

   を追加すれば良い。(A)と(B)で囲まれた部分は、 適宜インデントし直すこと。

練習問題 12

1. pricelist.rb

   #!/usr/local/bin/ruby
   prlist={}
   while entry=gets
     if /(\S+)=(\d+)/ =~ entry
       prlist[$1] = $2.to_i
     end
   end
   
   $KCODE='e'
   p prlist
   

2. aefreq.rb

   #!/usr/local/bin/ruby
   
   freq=Hash.new(0)
   
   while s=gets
     for ch in s.chomp!.split(//)
       freq[ch] += 1
     end
   end
   
   puts "---+--------"
   for ch, count in freq do
     if /[a-e]/ =~ ch
       printf(" %s | %3d\n", ch, count)
    end
   end
   puts "---+--------"
   

練習問題 13

1. kokugo-rank.rb のうち、

   for student in point.keys.sort {|x, y|
       point[x][0] <=> point[y][0]
     }.reverse
   

   の部分を、以下のように変えれば良い。

   for student in point.keys.sort {|x, y|
       point[x][1] <=> point[y][1]
     }.reverse
   

2. 前問の該当部分を以下のように変えれば良い。

   for student in point.keys.sort {|x, y|
       point[x][0]+point[x][1] <=> point[y][0]+point[y][1]
     }.reverse
   

   ただし、この場合sortメソッドが並べ換えのときに何度も足し算する ことになり効率が良くない。このような場合は、データの読み込み時にあ らかじめ合計値を計算し、配列要素として追加しておくのがよい。そうす るためには、kokugo-rank.rbの

   if /(\S+)\s+(\d+)\s+(\d+)/ =~ yline
       point[$1] = [$2.to_i, $3.to_i]
   end

   の部分を、

   if /(\S+)\s+(\d+)\s+(\d+)/ =~ yline
       point[$1] = [$2.to_i, $3.to_i, $2.to_i+$3.to_i]
   end

   と変更し、並べ換えの部分を

   for student in point.keys.sort {|x, y|
       point[x][2] <=> point[y][2]
     }.reverse
   

   とすればよい。

3. jslash.rb

   #!/usr/local/bin/ruby
   line=[]
   while l=gets
     line << l.chomp!
   end
   puts line.join("/")
   

4. wordsplit.rb

   #!/usr/local/bin/ruby
   while l=gets
     l.chomp!
     for word in l.split(/[., \t\n]+/)
       if word != "" then
         puts word
       end
     end
   end
   

5. freq.rb

   #!/usr/local/bin/ruby
   
   freq=Hash.new(0)
   
   while s=gets
     for ch in s.chomp!.split(//)
       freq[ch] += 1
     end
   end
   
   puts "---+--------"
   for ch, in freq.keys.sort{|x, y| freq[y] <=> freq[x]}
     if /[a-z]/ =~ ch
       printf(" %s | %3d\n", ch, freq[ch])
     end
   end
   puts "---+--------"
   

6. wordfreq.rb

   #!/usr/local/bin/ruby
   
   freq=Hash.new(0)
   
   while l = gets
     for word in l.chomp!.split(/[,. \t]+/)
       if word != ""
         freq[word] += 1
       end
     end
   end
   
   puts "--------------+--------"
   for word in freq.keys.sort{|x, y| freq[y] <=> freq[x]}
     if /[a-z]/ =~ word
       printf(" %-12s | %3d\n", word, freq[word])
     end
   end
   puts "--------------+--------"
   

練習問題 14

1. age.rb

   #!/usr/local/bin/ruby
   def age(thisyear, birthyear)
     if thisyear==birthyear
       0
     else
       1+age(thisyear-1, birthyear)
     end
   end
   
   STDERR.print "生まれた西暦年は?: "
   printf("誕生日後は%d歳ですね\n",
          age(Time.now.year, gets.to_i))
   

2. hanoi.rb

   #!/usr/local/bin/ruby
   
   def hanoi(n, from, to, work)
     if n == 1
       printf("%d番の円盤 を %s から %s に移動しなさい\n", n, from, to)
     else
       hanoi(n-1, from, work, to)
       printf("%d番の円盤 を %s から %s に移動しなさい\n", n, from, to)
       hanoi(n-1, work, to, from)
     end
   end
   
   if ARGV[0] == nil
     STDERR.puts "ハノイの塔の最初の板の数を指定してください。"
     STDERR.puts "例: ./hanoi.rb 5"
     exit 0
   end
   
   n=ARGV[0].to_i
   hanoi(n, "A", "B", "C")
   

3. afind.rb

   #!/usr/local/bin/ruby
   
   if ARGV[0] == nil
     ARGV.push(".")
   end
   
   def afind(path)
     # [2..-1]で0番目、1番目の要素を除去した配列が得られる
     for f in Dir.entries(path)[2..-1].sort
       if test(?d, path+"/"+f)
         # fがディレクトリなら再帰的に検索
         afind(path+"/"+f)
       end
       if /^a/ =~ f then
         printf("%s/%s\n", path, f)
       end
     end
   end
   
   for dir in ARGV
     afind(dir)	# コマンドライン引数全部に対して繰り返す
   end
   

練習問題 15

1. 13.6のwordfreq.rbの

   l.chomp!

   の部分を、

   l.chomp!.downcase

   に変えれば良い。

2. msg1.rb

   #!/usr/local/bin/ruby
   ff="msg1.txt"
   if !test(?r, ff)
     STDERR.printf("%s にメッセージを入れといてね\n", ff)
     exit(1)
   end
   
   STDERR.print "戦士よ、汝の名は?: "
   name=gets.chomp
   
   open(ff, "r") do |m|
     while msg=m.gets
       print msg.gsub(/%NAME%/){name}
     end
   end
   

3. pos.rb

   #!/usr/local/bin/ruby
   name = []			# 商品名を配列にいれる
   value = []			# 価格を配列にいれる
   total = 0			# 価格の合計
   nitem = 0			# 読み取った商品の数
   
   
   STDERR.print "ポイント倍率は?: "
   pointrate=gets.chomp
   
   begin
     # テンプレートファイルを開く
     open("register.tmpl", "r") do |tp|
       while true
         STDERR.print "商品名は?: "
         item = gets
         if item == nil then		# 入力終わりなら gets はnilを返す
   	break
         end
         name[nitem] = item.chomp!
         STDERR.print "おいくら?: "
         price = gets.to_i
         value[nitem] = price
         total += price
         nitem += 1
       end
   
       i=0
       puts ""				# 改行するだけ
       while template=tp.gets
         if /%SUMMARY%/ =~ template
   	# テンプレートファイルに %SUMMARY% という行があったら
   	# その部分の代わりに買い物情報を出力
   	while i<nitem 
   	  printf("%-14s %5d円\n", name[i], value[i])
   	  i += 1
   	end
   	puts "- "*17
   	print "お買い上げありがとうございました。\n"
   	printf("合計は%6d円です。\n", total)
         else
   	template.gsub!(/%DATE%/){
   	  Time.now.strftime("%Y年%m月%d日")
   	}
   	template.gsub!(/%P%/){pointrate}
   	print template
         end
       end
     end
   rescue
     STDERR.puts "register.tmplを用意してからプログラムを起動してください。"
   end
   

   customreg.rbとの違いを下線 で示した。

4. exam.rb

   #!/usr/local/bin/ruby
   
   pts={}
   summary = gets.chomp.split(/,/)	# 科目名リスト
   summary << "合計"	 # 科目名の末尾を「合計」に
   nsubj = summary.length-1 # 科目数はsummaryの要素数-1
   
   while line=gets
     x = line.split(/,/)	# x[1]〜x[-1]に各科目の点が入る(文字列)
     name = x[0]		# x[0]には氏名
     pts[name] = x[1..-1]	# pts[name]にx[1]〜x[-1]をコピー
     sum = 0		# 合計点用
     0.upto(pts[name].length-1) do |j|
       # 数値に変換しておく
       pts[name][j] = pts[name][j].to_i
       sum += pts[name][j]
     end
     pts[name] << sum	# 合計点を配列末尾に追加
   end
   
   printf(" %-14s ", summary[0])
   for s in summary[1..-1]
     printf("| %4s ", s)	# 科目名のヘッダ出力
   end
   puts ""
   puts "-"*16+"+------"*nsubj	# 区切り線
   # 合計点の高い順にソート
   for i in pts.keys.sort{
       |x, y| pts[y][-1]<=>pts[x][-1]
     }
     printf(" %-14s ", i)
     for p in pts[i]
       printf("| %4d ", p)
     end
     puts ""
   end
   puts "-"*16+"+------"*nsubj	# 区切り線
   

5. exam.rbの末尾に以下の内容を追加すれば良い。

   # 各科目の平均を計算
   sum=Array.new
   avg=Array.new
   0.upto(nsubj-1) do |i|
     sum[i]=0.0
     # 人数分可算
     for student in pts.keys
       sum[i] += pts[student][i]
     end
     avg[i] = sum[i]/pts.length
   end
   
   stddev=Array.new
   # 各科目の標準偏差を計算
   0.upto(nsubj-1) do |i|
     v=0.0		# 分散の計算
     for student in pts.keys
       v += (pts[student][i]-avg[i])**2
     end
     # (標本数-1)で割ったものの平方根が標準偏差
     stddev[i] = Math.sqrt(v/(pts.length-1))
   end
   
   printf(" %-14s ", "平均")
   for p in avg
     printf("|%5.1f ", p)
   end
   puts ""
   printf(" %-14s ", "標準偏差")
   for p in stddev
     printf("|%5.1f ", p)
   end
   puts ""
   puts "-"*16+"+------"*nsubj	# 区切り線
   

練習問題 16

1. 5pan.rb

   #!/usr/local/bin/ruby
   
   menu=["あんパン", "クリームパン", "メロンパン",
   "うぐいすパン", "ずんだパン"]
   
   srand
   0.upto(menu.length-1) do |i|
     j = rand(menu.length)
     tmp = menu[i]
     menu[i] = menu[j]
     menu[j] = tmp
   end
   
   puts "今日は、"
   print menu.join("を食べて、\n")
   puts "を食べてしめましょう。"
   

2. その都度ogg123コマンドを呼ぶ場合。

   ogg-shuffle.rb

   #!/usr/local/bin/ruby
   srand
   0.upto(ARGV.length-1) do |i|
     j = rand(ARGV.length)
     tmp = ARGV[i]
     ARGV[i] = ARGV[j]
     ARGV[j] = tmp
   end
   
   for o in ARGV
     system("ogg123", o)
   end
   

   ogg123コマンドにoggファイルを全て渡す場合。

   ogg-shuffle.rb

   #!/usr/local/bin/ruby
   srand
   0.upto(ARGV.length-1) do |i|
     j = rand(ARGV.length)
     tmp = ARGV[i]
     ARGV[i] = ARGV[j]
     ARGV[j] = tmp
   end
   
   system("ogg123 "+ARGV.join(" "))
   

---

yuuji@

Fingerprint16 = FF F9 FF CC E0 FE 5C F7 19 97 28 24 EC 5D 39 BA
HIROSE Yuuji - ASTROLOGY / BIKE / EPO / GUEST BOOK / YaTeX [Tweet]