© serviceprofessionalgmbh

Knobeln, Schnippeln oder wie auch immer sonst. Diese Version liefert ihr Ergebnis über eine Mehrfachabfrage. Ziel sollte immer sein, die Dinge so einfach als möglich hinzuschreiben. Es ist dementsprechend nicht die Frage, ob man nicht mit Bool'schen Verknüpfungen hätte arbeiten können - mann hätte natürlich (frau auch). Aber ab wann wird eine Verknüpfung kompliziert? Mit einem UND? Mit 3fach UND und 4fach ODER? Dies ist eine sehr subjektive Sicht der Dinge. Keine Verknüpfung ist in jedem Falle sehr einfach.

/* REXX
*/
obj.1="Stein"
obj.2="Schere"
obj.3="Papier"
obj.4="Brunnen"
obj.5="ENDE"
erg.1="unentschieden"
erg.2="ich habe gewonnen"
erg.3="Du hast gewonnen"
do forever
   say center("< Die kleine Knobelei >",79,"-");say;say
   do I = 1 to 5
      say center(I "=" left(OBJ.I,8),79)
   end
   say
   do until wordpos(s,"1 2 3 4 5") > 0
      say center("Triff Deine Auswahl",79)
      parse external s
   end
   if s = 5 then leave
   r=random(1,4)
   say;say "Du hast" obj.s", ich habe" obj.r
   select
      when r=s then e=1
      when r=1 then if s=2 then e=2
                    else e=3
      when r=2 then if s=3 then e=2
                    else e=3
      when r=3 then if s=2 then e=3
                    else e=2
      otherwise     if s=3 then e=3
                    else e=2
   end
   say erg.e
end
say "Bye, bye..."
exit