Advertisement
Guest User

Untitled

a guest
Nov 27th, 2014
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. myRString1 = readRString "ab"
  2. myStringSystem1 = readRStringSystem [
  3. ("a", "aa"),
  4. ("b", "bb")
  5. ]
  6. myRStringn n = nrewrite myStringSystem1 (nrewrite myStringSystem1 myRString1 leftmost n) rightmost n
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement