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, 0 insertions, 22 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 deleted file mode 100644 index d0e0b27..0000000 --- a/perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml +++ /dev/null @@ -1,22 +0,0 @@ -<?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> |