Demo entry 6350471

add card values

   

Submitted by Pablo Adames on Mar 10, 2017 at 19:34
Language: Standard ML. Code size: 153 Bytes.

fun sum_cards xs = 
  let fun aux(cs, acc) = 
	case cs of
	    [] => acc
	 | c::rest => aux( rest, acc + card_value(c))
  in
      aux(xs,0)
  end

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).