Changeset 642

Timestamp:

03/13/05 08:15:39 (4 years ago)

Author:

nothingmuch

svk:copy_cache_prev:

1998

Message:

Attempt at Y and yen operators

Location:

src

Files:

• Internals.hs (modified) (1 diff)
• Prim.hs (modified) (3 diffs)

src/Internals.hs

@@ -72 +72 @@
     (\\), find, genericLength, insert, sortBy, intersperse,
     partition, group, sort, genericReplicate, isPrefixOf,
-    genericTake, genericDrop, unfoldr, nub, nubBy
+    genericTake, genericDrop, unfoldr, nub, nubBy, transpose
     )
 import Data.Unique

src/Prim.hs

@@ -34 +34 @@
 op0 "not" = const retEmpty
 op0 s    = \x -> return $ VError ("unimplemented listOp: " ++ s) (Val $ VList x)
+
+op0 "¥" = return . VList . concat . transpose . map vCast
+op0 "Y" = op0 "¥"
 
 retEmpty = do
@@ -69 +72 @@
     liftIO $ writeIORef ref $ case val of
         (VStr str)  -> VStr $ strInc str
-        _           -> op1Numeric (+1) (vCast val)
+        b           -> op1Numeric (+1) (vCast val)
     case val of
         (VStr _)    -> return val
@@ -695 +698 @@
 \\n   List      left    »xx«    (Any, Any)\
 \\n   List      list    ,       (List)\
+\\n   List      list    ¥               (List)\
+\\n   List      list    Y               (List)\
 \\n   List      spre    <==     (List)\
 \\n   List      left    ==>     (List, Code)\