Changeset 14927 for src/Pugs/Prim/List.hs

Timestamp:

12/19/06 01:47:53 (2 years ago)

Author:

luqui

Message:

Implemented @list.pick(*).

Files:

• src/Pugs/Prim/List.hs (modified) (1 diff)

src/Pugs/Prim/List.hs

@@ -72 +72 @@
     ref <- readRef r
     op2Pick ref num
+op2Pick l@(VList xs) (VNum n)
+    | n == 1/0  = op2Pick l (VInt . toInteger $ length xs)
+    | otherwise = op2Pick l (VInt . toInteger $ floor n)
 op2Pick (VList xs) (VInt num) = do
     shuffled <- shuffleN (fromInteger num) xs