Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Rekursives Nicht-Leiden programmiertechnisch Dargestellt (vorsicht: sinnlos)
| Uploader: |  The_Muh |
| Datum/Zeit: | 09.12.2008 14:52:57 |
declare function foo() as integer
declare function bar() as integer
dim shared moegen as integer = -1
function foo() as integer
print "Person A: ";
if moegen = 0 then
print "Du magst mich, also mag ich dich auch"
else
print "Du magst mich nich, also mag ich dich auch nich"
end if
if multikey(&h01) then end
if bar() = 0 then
moegen = 0
end
else
sleep 100
return -1
end if
end function
function bar() as integer
print "Person B: ";
if moegen = 0 then
print "Du magst mich, also mag ich dich auch"
else
print "Du magst mich nich, also mag ich dich auch nich"
end if
if multikey(&h01) then end
if foo() = 0 then
moegen = 0
end
else
return -1
end if
end function
Print "Konversation:"
print ""
print "Person A: ";
print "Wenn du mich nicht magst, mag ich dich auch nicht"
print "Person B: ";
print "Wenn du mich nicht magst, mag ich dich auch nicht"
print foo()