From 2de302bcb3fa7e12c83a58909232a527c4d5372e Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Wed, 27 Apr 2022 16:58:17 +0900 Subject: Remove redundant letters --- comparison/SML/ack3-11.sml | 1 - comparison/SML/bsort-40000.sml | 2 -- comparison/SML/isort-40000.sml | 1 - comparison/SML/msort-800000.sml | 3 --- 4 files changed, 7 deletions(-) (limited to 'comparison/SML') diff --git a/comparison/SML/ack3-11.sml b/comparison/SML/ack3-11.sml index f1ea7f2..4668ddb 100644 --- a/comparison/SML/ack3-11.sml +++ b/comparison/SML/ack3-11.sml @@ -2,5 +2,4 @@ fun ack 0 n = n+1 | ack m 0 = ack (m-1) 1 | ack m n = ack (m-1) (ack m (n-1)); - ack 3 11; diff --git a/comparison/SML/bsort-40000.sml b/comparison/SML/bsort-40000.sml index 48c3eb4..e892f09 100644 --- a/comparison/SML/bsort-40000.sml +++ b/comparison/SML/bsort-40000.sml @@ -26,5 +26,3 @@ end; bsort (mkRandList 40000); - - diff --git a/comparison/SML/isort-40000.sml b/comparison/SML/isort-40000.sml index 973d6e6..a851dbd 100644 --- a/comparison/SML/isort-40000.sml +++ b/comparison/SML/isort-40000.sml @@ -8,7 +8,6 @@ fun insertsort [] = [] in insert(x, insertsort xs) end; - (* mkRandList *) local val nextInt = Random.randRange(1,10000); diff --git a/comparison/SML/msort-800000.sml b/comparison/SML/msort-800000.sml index 2a33649..9209685 100644 --- a/comparison/SML/msort-800000.sml +++ b/comparison/SML/msort-800000.sml @@ -28,8 +28,6 @@ fun msort [] = [] end; - - (* mkRandList *) local val nextInt = Random.randRange(1,10000); @@ -42,4 +40,3 @@ end; msort (mkRandList 800000); - -- cgit v1.2.3