47 lines
1.4 KiB
OCaml
47 lines
1.4 KiB
OCaml
open Ast;;
|
|
|
|
let iadd _ vs : lisp_val =
|
|
let rec auxi vs accum =
|
|
match vs with
|
|
| LCons (LInt a, b) -> (auxi b (accum + a))
|
|
| LCons (LDouble a, b) -> (auxf b ((float_of_int accum) +. a))
|
|
| _ -> LInt accum
|
|
and auxf vs accum =
|
|
match vs with
|
|
| LCons (LInt a, b) -> (auxf b (accum +. (float_of_int a)))
|
|
| LCons (LDouble a, b) -> (auxf b (accum +. a))
|
|
| _ -> LDouble accum
|
|
in (auxi vs 0);;
|
|
let isub _ vs =
|
|
let rec auxi vs accum =
|
|
match vs with
|
|
| LNil -> LInt accum
|
|
| LCons (LInt a, b) -> auxi b (accum - a)
|
|
| LCons (LDouble a, b) -> auxf b ((float_of_int accum) -. a)
|
|
| _ -> raise (Invalid_argument "-: invalid argument to subtraction operator")
|
|
and auxf vs accum =
|
|
match vs with
|
|
| LNil -> LDouble accum
|
|
| LCons (LInt a, b) -> auxf b (accum -. (float_of_int a))
|
|
| LCons (LDouble a, b) -> auxf b (accum -. a)
|
|
| _ -> raise (Invalid_argument "-: invalid argument to subtraction operator")
|
|
in
|
|
match vs with
|
|
| LCons (LInt a, LNil) -> LInt (-a)
|
|
| LCons (LInt a, b) -> auxi b a
|
|
| LCons (LDouble a, LNil) -> LDouble (-. a)
|
|
| LCons (LDouble a, b) -> auxf b a
|
|
| _ -> auxi vs 0;;
|
|
|
|
|
|
let car _ vs =
|
|
match vs with
|
|
| LCons (LCons (a, _), LNil) -> a
|
|
| _ -> raise (Invalid_argument "car: invalid argument")
|
|
|
|
let cdr _ vs =
|
|
match vs with
|
|
| LCons (LCons (_, b), LNil) -> b
|
|
| _ -> raise (Invalid_argument "cdr: invalid argument")
|
|
|