fix code

Author: kotapiku

hs-src/Language/Egison/Types.hs

@@ -433,7 +433,7 @@ data SymbolExpr =
     Symbol Id String [Index ScalarData]
   | Apply EgisonValue [ScalarData]
   | Quote ScalarData
-  | FunctionData (Maybe EgisonValue) [EgisonValue] [EgisonValue] [Index ScalarData] -- fnname argnames arg indices
+  | FunctionData (Maybe EgisonValue) [EgisonValue] [EgisonValue] [Index ScalarData] -- fnname argnames args indices
  deriving (Eq)
 
 instance Eq PolyExpr where

sample/rosetta/best_shuffle.egi

@@ -1,22 +1,22 @@
 (define $texts {"abba" "abracadabra" "seesaw" "elk"  "grrrrrr" "up" "a" "aaaaa.....bbbbb" "Rosetta Code is a programming chrestomathy site."})
 
-(define $shufflingQuality 
+(define $shufflingQuality
   (lambda [$l1 $l2]
     (sum (map2 (lambda [$x $y] (if (eq? x y) 1 0)) l1 l2))))
 
-(define $shuffle 
-  (lambda [$lst] 
+(define $shuffle
+  (lambda [$lst]
    (match [lst (randomize lst)] [(list eq) (multiset eq)]
      {[[(loop $i [1 $n]
-             <cons $x_i ...> <nil>)
+           <cons $x_i ...> <nil>)
         (loop $i [1 n]
-             (dfs <cons (& (|* !,x_i ,x_i) $y_i) ...>) <nil>)] (map 1#y_%1 (between 1 n))]})))
+           (dfs <cons (& (|* !,x_i ,x_i) $y_i) ...>) <nil>)] (map 1#y_%1 (between 1 n))]})))
 
 (define $main
   (lambda [$args]
     (each (compose show print)
-          (map (lambda [$text]
-                 (let {[$new (shuffle text)]}
-                   (S.concat {(pack text) " " (pack new) " " (show (shufflingQuality text new))})))
-               (map unpack texts)))))
+      (map (lambda [$text]
+        (let {[$new (shuffle text)]}
+          (S.concat {(pack text) " " (pack new) " " (show (shufflingQuality text new))})))
+            (map unpack texts)))))