diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 17:05:48 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 17:05:48 +0200 |
| commit | c592d7100b95124e6042563fc20d66a2966f3267 (patch) | |
| tree | 15c68ef0a106fb4a5523893d8d48a88dd301c4e0 /perl9.buetow.org/content/Better-Than-Others.sub/Lisp.xml | |
| parent | f3edcebfc981ac077bcd61aac2dd3d1682c41bc2 (diff) | |
foo
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> |