Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [1 of 1] Compiling Main
- Ok, modules loaded: Main.
- *Main> let a = concatMap (\((a,b),c) -> b) applicationPath
- *Main> a
- ["R","R","R","R","U","U","R","U","R","R","R","R","R","U","U","U","R","R","U","R"
- ,"R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R"
- ,"R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U","R","R"
- ,"U","R","R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R"
- ,"R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U"
- ,"R","R","U","R","R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U"
- ,"U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U"
- ,"U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U","R","R","U","R"
- ,"R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R"
- ,"R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U","R","R"
- ,"U","R","R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R"
- ,"R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U"
- ,"R","R","U","R","R","U","U","R","R","R","R","U","U","U","R","R","U","R","R","U"
- ,"U","R","R","R","R","U","U","U","R","R","U","R","R","U","U","R","R","R","R","U"
- ,"U","U","R","R","U","R","R","U","U","R","R","R","R","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U","U"
- ,"U","U","U","U","U","U","U","U","R","R","R","R","U"]
- *Main> instances "R" a
- 174
- *Main> instances "U" a
- 259
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement