Restored from previous forum. Originally posted by Franco.
Found somewhere in the net...
-----------------------------
Programmers Song
100 little bugs in the code
100 little bugs in the code
Fix one little bug is the code
101 little bugs in the code
...
[REPEAT UNTIL BUGS=0]
Have a nice day...
Franco
Sometimes you have to go a lonely way to accomplish genius things.
Programmers Song
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
-
- PureBasic Guru
- Posts: 16777133
- Joined: Tue Apr 22, 2003 7:42 pm
Restored from previous forum. Originally posted by Fangbeast.
Procedure Pesticide_Control(Pesticide, LargeBugs)
If Bugs = 101
Pesticide + 1
Result = Bugs + Pesticide
If AllBugsDead
Pesticide = EmptyCan
EndIf
endif
ProcedureReturn Result
EndProcedure
Fangles
Global PesticideFound somewhere in the net...
-----------------------------
Programmers Song
100 little bugs in the code
100 little bugs in the code
Fix one little bug is the code
101 little bugs in the code
...
[REPEAT UNTIL BUGS=0]
Have a nice day...
Franco
Sometimes you have to go a lonely way to accomplish genius things.
Procedure Pesticide_Control(Pesticide, LargeBugs)
If Bugs = 101
Pesticide + 1
Result = Bugs + Pesticide
If AllBugsDead
Pesticide = EmptyCan
EndIf
endif
ProcedureReturn Result
EndProcedure
Fangles