Ruby プログラミングの基礎: 条件分岐，繰り返し，配列，文字列

# q_eq.rb
# 2次方程式 (quadratic equation) a*x**2+b*x+c=0 を解く関数

include Math                          # 数学関数を使えるようにする

def d(a,b,c)                          # 判別式計算関数
  b ** 2 - 4 * a * c                  # 判別式の計算
end                                   # 関数定義の終わり

def q_eq_solution1(a,b,c)             # 方程式の解1を求める関数
  d = d(a,b,c)                        # 判別式の計算結果を変数 d に保存
  if d >= 0                           # 判別式 d(a,b,c) が0以上か？
    (-b + sqrt(d)) / (2 * a)          # d(a,b,c) が0以上なら計算
  end                                 # if 文の終わり
end                                   # 関数定義の終わり

def q_eq_solution2(a,b,c)             # 方程式の解2を求める関数
  d = d(a,b,c)
  if d > 0                  
    (-b - sqrt(d)) / (2 * a)
  end
end

def q_eq(a,b,c)                                     # 方程式の解を求める関数
  d = d(a, b, c)
  if d > 0                                          # 判別式が0以上のとき
    [q_eq_solution1(a,b,c), q_eq_solution2(a,b,c)]  #   2つの解を計算
  elsif d == 0                                      # 判別式が0と等しいとき
    [q_eq_solution1(a,b,c)]                         #   重解を計算
  else                                              # それ以外のとき
    nil                                             #   解がない
  end
end

# sign.rb

def sign(x)
  if x < 0
    -1
  else
    if 0 < x
      1         # x < 0 でなく 0 < x のとき
    else
      0         # x < 0 でなく 0 < x でないとき
    end
  end
end

# gcd_s.rb
# 最大公約数を単純な方法で求めるプログラム

def gcd_s(x,y)                    # 関数 gcd_s の定義
  if x > y                        # x, y のうち大きくない方を n に設定
    n = y
  else
    n = x
  end
  k = 1
  while k <= n                    # k が n 以下なら繰り返す:
    if x % k == 0 && y % k == 0   # x と y が k で割り切れるか判定
      ans = k                     # k が x と y の公約数のときに ans に設定
    end
    k = k + 1                     # k の値を 1 増やす
  end
  ans                             # 答えとして ans の値を返す
end

# gcd_s_p.rb
# 最大公約数を単純な方法で求めるプログラム

def gcd_s(x,y)                    # 関数 gcd_s の定義
  if x > y                        # x, y のうち大きくない方を n に設定
    n = y
  else
    n = x
  end
  k = 1
  while k <= n                    # k が n 以下なら繰り返す:
    if x % k == 0 && y % k == 0   # x と y が k で割り切れるか判定
      ans = k                     # k が x と y の公約数のときに ans に設定
      print "k = ", k, "\n"       # 公約数を表示
      # k = という文字列の後に k の値を表示．
      # \n という文字列は改行を行う．
    end
    k = k + 1                     # k の値を 1 増やす
  end
  ans                             # 答えとして ans の値を返す
end

# fib.rb: フィボナッチ数を最初からn個計算するプログラム
def fib(n) 
  fib = Array.new(n)   # 長さ n の配列 fib を作る．
  fib[0] = 1           # 配列 fib の第0要素 (1番目) に1を代入．
  fib[1] = 1           # 配列 fib の第1要素 (2番目) に1を代入．
  for i in 2..n-1      # i を2から n-1 まで順に動かして，
    fib[i] = fib[i-1] + fib[i-2]
    # 配列 fib の第 i-1 要素と第 i-2 要素を足して第 i 要素に代入．
  end
  fib                  # 配列 fib を結果として返す．
end

def add_string(str1,str2)
  s = str1 + str2          # 文字列 str1 と文字列 str2 をつなげて s に代入
end

def sub_string(str, m, n)
  if m >= 0 && n >= 0 && m < str.length && n < str.length
       # m, nが文字列strの範囲内かを判定．
    str[m..n]
       # 文字列strのうち，第m要素から第n要素までの文字列を返す．
  end
end