William James
10/29/2015 9:58:00 PM
WJ wrote:
> > Or how about an iteration example using only standard features:
> >
> > (let ((list '(("Joe" 23 "Mechanic")
> > ("Amy" 41 "Executive")
> > ("Bob" 31 "Programmer"))))
> > (loop for (name age occupation)
> > in list
> > do (format t "name: ~a, age: ~a, occupation ~a~%"
> > name age occupation)))
> >
> > Output:
> >
> > name: Joe, age: 23, occupation Mechanic
> > name: Amy, age: 41, occupation Executive
> > name: Bob, age: 31, occupation Programmer
>
> Gauche Scheme:
>
> (let1 men '(("Sepp" 23 "Mechanic")
> ("Dolf" 41 "Executive")
> ("Ivan" 31 "Programmer"))
> (for-each
> (pa$ apply format #t "name: ~a, age: ~a, occupation ~a~%")
> men))
>
> ===>
> name: Sepp, age: 23, occupation Mechanic
> name: Dolf, age: 41, occupation Executive
> name: Ivan, age: 31, occupation Programmer
MatzLisp (Ruby):
"We don't need no stinkin' loops!"
puts [["Sepp",23,"Mechanic"], ["Dolf",41,"Executive"],
["Ivan",31,"Programmer"]].map{|x|
%w(name age occupation).zip(x).map{|x| x.join ': '}.join ' '}
name: Sepp age: 23 occupation: Mechanic
name: Dolf age: 41 occupation: Executive
name: Ivan age: 31 occupation: Programmer
--
Viewed at its most abstract level, a fundamental agenda is thus to influence
the European-derived peoples of the United States to view concern about their
own demographic and cultural eclipse as irrational and as an indication of
psychopathology. --- Dr. Kevin MacDonald; "The Frankfurt School of Social
Research and the Pathologization of Gentile Group Allegiances"