Scripting 設計 第一次小考

請寫一個 perl 程式, 計算費氏數列 (Fibonacci sequence)。

  1. 若命令列上沒有任何參數, 則印出前五個數字, 像這樣: 
            greg@penguin:~$ ./fib
        1 1 2 3 5
  2. 若命令列上有一個參數 n, 則印出前 n 個數字, 像這樣: 
            greg@penguin:~$ ./fib 12
        1 1 2 3 5 8 13 21 34 55 89 144
  3. 若命令列上有三個參數 n, a, b, 則印出 "以 a b 為首的費氏數列, 的前 n 個數字", 像這樣: 
            greg@penguin:~$ ./fib 12 35 36
        35 36 71 107 178 285 463 748 1211 1959 3170 5129

注意及提示:

  1. 此次小考不可以使用遞迴。
  2. 可以不必檢查錯誤的輸入資料。
  3. 寫一點 (每增加一點功能), 就測試一下; 不要把整個程式寫完才測試。 (除非你是程式設計高手)
  4. 提示: 需要用到類似兩變數交換的邏輯。 
            $t = ...;
        $large = ...;
        $small = ...;