
Ich habe keine Ahnung was er benutzt deswegen hab ich ein bisschen von beidem genommen...
Smalltalk fühlt sich jetzt aber verschmäht!audax hat geschrieben:kein Lisp? Schade...
http://paste.pocoo.org/show/98039/
Klammern farblich unterschiedlich hervorheben sollte reichen und dass mit der Einrückung sollte man imho noch so eben selbst hinbekommenLeonidas hat geschrieben:Ohne richtiges, semantisches Einrücken und farbliches Klammer-Level-Matching ist es vergleichsweise unangenehm zu programmieren.
Code: Alles auswählen
perl -Mfeature=say -e '$r=int rand(99)+1;$t=1; say "guess a number for 1 to 100"; while(($guess=<>)!=$r){ $t++;say "Guess is ". (($guess>$r)?"higher":"lower")} say "you needed $t tries"'
Code: Alles auswählen
10 s=int(rnd(-ti)*100)+1:i=1
20 print i;"{left}. try";:input g:if s=g then 50
30 i=i+1:print "your guess is ";:if g<s then print "smaller.":goto 20
40 print "greater.":goto 20
50 print "yeah! you solved it in";i;"tries."
Code: Alles auswählen
(setq mynumber (random 101))
(setq guess (read-number "Enter a number: "))
(while (not (equal guess mynumber))
(setq guess (read-number (if (< guess mynumber)
"That's too small, new try: "
"That's too big, new try: "))))
(message "You got it!")