[modified Examples.hs, added shiftl, shiftr
martin.hofmann@uni-bamberg.de**20090602011458] hunk ./expl/Examples.hs 2
-module Syntax.TestModule where
+module Examples where
hunk ./expl/Examples.hs 88
-swap, switch, multfst,multlst :: [a] -> [a]
+swap, switch, multfst,multlst,shiftl, shiftr :: [a] -> [a]
hunk ./expl/Examples.hs 121
+shiftr [] = []
+shiftr [a] = [a]
+shiftr [a,b] = [b,a]
+shiftr [a,b,c] = [c,a,b]
+shiftr [a,b,c,d] = [d,a,b,c]
+-- shiftr [a,b,c,d,e] = [e,a,b,c,d]
+
+shiftl [] = []
+shiftl [a] = [a]
+shiftl [a,b] = [b,a]
+shiftl [a,b,c] = [b,c,a]
+shiftl [a,b,c,d] = [b,c,d,a]
+
hunk ./expl/Examples.hs 1231
+