練習問題 5.2 ①

正の整数 n から 1 までの整数の降順リストを生成する関数 downto1 を定義せよ。

(*
1. 正の整数 n から 1 までの整数の降順リストを生成する関数 downto1 を定義せよ。
*)

let rec downto1 n =
  if n = 1 then [1]
  else
    n :: downto1 (n-1) ;;

let test1 = downto1 6 = [6; 5; 4; 3; 2; 1];;