Mgr (Diskussion | Beiträge) (Common-Lisp-Version) |
((SCREW LISP)) |
||
| Zeile 6: | Zeile 6: | ||
# flos sind keine arrayss1! | # flos sind keine arrayss1! | ||
for i in 0..3 | for i in 0..3 | ||
eval "flo#{i} = flo[#{i}] | eval "flo#{i} = flo[#{i}]" | ||
puts "flo#{i} == \"" + eval("flo#{i}") + "\"" | |||
end | end | ||
</pre> | </pre> | ||
Version vom 1. November 2005, 18:00 Uhr
#!/usr/bin/env ruby
flo = [ "dividuum", "syb", "fiji", "flowhase" ]
# flos sind keine arrayss1!
for i in 0..3
eval "flo#{i} = flo[#{i}]"
puts "flo#{i} == \"" + eval("flo#{i}") + "\""
end
Dieses Perl (*duck*) kann ja keiner lesen!
(defvar *flo* #("dividuum" "syb" "fiji" "flowhase"))
(dotimes (i 4)
(format t "~&flo~d = ~a" i (svref *flo* i)))