shithub: mc

ref: 2f5f1d3d30406b78123e934998a681d90ced60a0
dir: /libstd/extremum.myr/

View raw version 
pkg std =
	generic min	: (a : @a::tcnum, b : @a::tcnum  -> @a::tcnum)
	generic max	: (a : @a::tcnum, b : @a::tcnum  -> @a::tcnum)
;;

generic min = {a, b
	if a < b
		-> a
	else
		-> b
	;;
}

generic max = {a, b
	if a > b
		-> a
	else
		-> b
	;;
}