ex2 7

← Back

Basic Info

• Type: sml
• Size: 269 B

• Origin

• Download

Functional Programming
└── Lab ML
    └── 0​404
        └── ex2 7.sml

---

Preview

(*
What is the effect on a list of

reduce (op - , L);
*)

fun reduce (F,nil) =
    raise EmptyList
| reduce (F,[a]) =
    a
| reduce (F,x::xs) =
    F (x, reduce (F,xs))
;

(* Alternating difference: a_1 − a_2 + a_3 − a_4 *)

val L = [1,2,3,4];

reduce (op - , L);