packages feed

egison-2.3.9: sample/number-test.egi

(test (if ((= (List Integer)) (between 3 5)
                              {3 4 5})
          <ok>
          <ko>))

(test (if (eq? (min&max {10 20 4 40 23})
               [4 40])
          <ok>
          <ko>))

(test (if (eq-n? (fib 10)
                 89)
          <ok>
          <ko>))

(test (if (eq-n? (fact 10)
                 3628800)
          <ok>
          <ko>))

(test (if (eq-n? (gcd {10 20 40 35})
                 5)
          <ok>
          <ko>))