steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hamurabi: fix #percent-died.

freebsd-work
John Benediktsson 2019-01-27 21:34:49 -08:00
parent 16a79f1397
commit c8da551a95
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/hamurabi/hamurabi.factor
View File

@ -24,9 +24,9 @@ total-births total-deaths ;
3 >>yield 3 >>yield
f >>plague f >>plague
0 >>cost 0 >>cost
dup births>> >>total-births
dup deaths>> >>total-deaths
dup births>> '[ _ + ] change-population dup births>> '[ _ + ] change-population
dup population>> >>total-births
dup deaths>> >>total-deaths
dup [ harvest>> ] [ yield>> ] bi / >>acres dup [ harvest>> ] [ yield>> ] bi / >>acres
dup [ harvest>> ] [ stores>> ] bi - >>eaten ; dup [ harvest>> ] [ stores>> ] bi - >>eaten ;
@ -47,7 +47,7 @@ total-births total-deaths ;
[ harvest>> ] [ eaten>> ] bi - ; [ harvest>> ] [ eaten>> ] bi - ;
: #percent-died ( game -- n ) : #percent-died ( game -- n )
[ total-deaths>> 100 * ] [ total-births>> ] [ year>> ] tri / / ; [ total-deaths>> ] [ total-births>> ] bi / 100 * ;
: #births ( game -- n ) : #births ( game -- n )
{ {
@ -63,7 +63,7 @@ total-births total-deaths ;
: leave-fink ( -- ) : leave-fink ( -- )
"DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" print "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" print
"BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE" print "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE" print
"ALSO BEEN DECLARED 'NATIONAL FINK' !!" print ; "ALSO BEEN DECLARED 'NATIONAL FINK'!!!!" print ;
: leave-starved ( game -- game ) : leave-starved ( game -- game )
dup deaths>> "YOU STARVED %d PEOPLE IN ONE YEAR!!!\n" printf dup deaths>> "YOU STARVED %d PEOPLE IN ONE YEAR!!!\n" printf