From 968832bfaf30d49c41014327283febcece630c46 Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Tue, 13 Feb 2024 11:51:10 -0700 Subject: [PATCH] remove debug code --- examples/rlp/QuickSort.rl | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl index 1d45c1f..4d65229 100644 --- a/examples/rlp/QuickSort.rl +++ b/examples/rlp/QuickSort.rl @@ -26,15 +26,5 @@ qsort l = case l of list = Cons 9 (Cons 2 (Cons 3 (Cons 2 (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil))))))) -list2 = Cons 2 (Cons 3 Nil) - -lt :: Int# -> Int# -> Bool -lt a = (>=# a) - -gte :: Int# -> Int# -> Bool -gte a = (<# a) - -id x = x - main = print# (qsort list)