Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "indent
- [
- str_String
- ]
- := Module
- [
- {
- ind,
- indent,
- f
- }
- ,
- ind = 0;
- indent
- [
- i_
- ]
- := \"\\n\" <> Nest
- [
- \" \" <> ToString
- [
- #
- ]
- &,
- \"\",
- i
- ]
- ;
- f
- [
- c_
- ]
- :=
- (
- indent
- [
- ind
- ]
- <> c <> indent
- [
- ++ind
- ]
- )
- /;
- StringMatchQ
- [
- \"
- [
- (
- {
- \",
- ___ ~~ c ~~ ___
- ]
- ;
- f
- [
- c_
- ]
- :=
- (
- indent
- [
- --ind
- ]
- <> c <> indent
- [
- ind
- ]
- )
- /;
- StringMatchQ
- [
- \"
- ]
- )
- }
- \",
- ___ ~~ c ~~ ___
- ]
- ;
- f
- [
- c_
- ]
- :=
- (
- c <> indent
- [
- ind
- ]
- )
- /;
- StringMatchQ
- [
- \";
- ,
- \",
- ___ ~~ c ~~ ___
- ]
- ;
- f
- [
- c_
- ]
- := c;
- f /
- @
- Characters
- @
- str // StringJoin
- ]
- "
- "List
- [
- List
- [
- 6,
- 10,
- 6
- ]
- ,
- List
- [
- 4,
- 0,
- 10
- ]
- ,
- List
- [
- 8,
- 7,
- 5
- ]
- ]
- "
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement