blob: d0e0b27015d4359e92c74a0561e16d85085692fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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>
|
