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))

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).