diff options
Diffstat (limited to 'perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml')
| -rw-r--r-- | perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml b/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml new file mode 100644 index 0000000..d0e0b27 --- /dev/null +++ b/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml @@ -0,0 +1,22 @@ +<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> +<content> + <pagetitle>Common Lisp users will love Perl 9!</pagetitle> + <text>Lisp users will love Perl 9 because you can use paranthesis everywhere!</text> + <code> +(for (set (range 0 (subtract (elems @bar) 1)) $i) + (do + (set $foo (elem @foo $i)) + (set $bar (elem @bar $i)) + (set $baz (elem @baz $i)) + (for (set (range 0 (subtract (elems (ptr $bar)) 1)) $j) + (do + (set $foo_ (elem (ptr $foo) $j)) + (set $bar_ (elem (ptr $bar) $j)) + (set $baz_ (elem (ptr $baz) $j)) + (for (set (range 0 (subtract (elems (ptr $bar_)) 1)) $k) + (push (ptr $baz_) + (add + (elem (ptr $foo_) $k) + (elem (ptr $bar_) $k)))))))) + </code> +</content> |