Opened by Sven_123 at 2011-03-11 16:18
User since
2003-08-20
39 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-20
39 Artikel
BenutzerIn
Ich hab das mal als lauter kleine Einzeiler gebaut
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
ftr@home:./perl6 -e ' my @y; @y.push([< a b > ]); say @y[0]'
a b
ftr@home:./perl6 -e ' my @y; @y.push([< a b > ]); say @y[0][0]'
a
ftr@home:./perl6 -e ' my @y;@y[0]="FRED"; @y.push([< a b > ]); say @y[0][0]'
FRED
ftr@home:./perl6 -e ' my @y;@y[0]="FRED"; @y.push([< a b > ]); say @y[1][0]'
a
ftr@home:./perl6 -e 'my @y; @y[1]="FRED"; @y[0]= < a b >; say @y[0][0]; '
a
ftr@home:./perl6 -e 'my @y; @y[1]="FRED"; @y[0]= < a b >; @y.[0].push("ADDME") ;say @y[0][2]; '
ADDME
Code: ()
1
2
print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}