Clean up test case
This commit is contained in:
parent
27cbedc7ab
commit
0b86cdc318
@ -1,16 +1,10 @@
|
|||||||
|
|
||||||
namespace Lib =
|
namespace Lib =
|
||||||
|
|
||||||
// namespace Internal =
|
private function rev(xs, ys) =
|
||||||
// function rev(xs, ys) =
|
switch(xs)
|
||||||
// switch(xs)
|
[] => ys
|
||||||
// [] => ys
|
x :: xs => rev(xs, x :: 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, [])
|
function reverse(xs : list('a)) : list('a) = rev(xs, [])
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user