Clean up test case

This commit is contained in:
Ulf Norell 2019-02-08 12:12:02 +01:00
parent 27cbedc7ab
commit 0b86cdc318

View File

@ -1,16 +1,10 @@
namespace Lib =
// namespace Internal =
// function rev(xs, ys) =
// switch(xs)
// [] => ys
// x :: xs => rev(xs, x :: ys)
private
function rev(xs, ys) =
switch(xs)
[] => ys
x :: xs => rev(xs, x :: ys)
private function rev(xs, ys) =
switch(xs)
[] => ys
x :: xs => rev(xs, x :: ys)
function reverse(xs : list('a)) : list('a) = rev(xs, [])