capitalex / bottles-of-beer.nv

|| :keyword for 'if': say :keyword for 'else': otherwise-say || :: 99 bottles of beer |:: $n bottles of beer| :: $n bottles of beer on the wall! :: $n bottles of beer! :: You take one down, pass it around! :: when $n is 1 :: say :: No more bottles of beer on the wall! :: otherwise-say :: $n - 1 bottles of beer on the wall! :: $n - 1 bottles of beer :: end |:: 1 bottles of beer on the wall!| :: print (formatted) :message: "1 bottle of beer on the wall!\n" |:: $n bottles of beer on the wall!| :: print (formatted) :message: "{%d} bottles of beer on the wall!\n" :arguments: $n :arguments |:: 1 bottles of beer!| :: print (formatted) :message: "1 bottle of beer!\n" |:: $n bottles of beer!| :: print (formatted) :message: "{%d} bottles of beer!\n" :arguments: $n :arguments |:: You take one down, pass it around!| :: print (formatted) :message: "You take one down, pass it around!\n" |:: when $n is $n| |:: when $n is $m| :: false |:: $_ - 1 bottles of beer on the wall! :@math: 1| :: print (formatted) :message: "1 bottle of beer on the wall!\n\n" |:: $_ - 1 bottles of beer on the wall! :@math: $n| :: print (formatted) :message: "{%d} bottle of beer on the wall!\n\n" :arguments: $n :arguments: |:: $n - 1 bottles of beer on the wall!?| :@math: subtract $n 1 |:: $_ - 1 bottles of beer :@math: $n| :: $n bottles of beer |:: $n - 1 bottles of beer?| :@math: subtract $n 1 |:: No more bottles of beer on the wall!| :: print (formatted) :message: "No more bottles of beer on the wall!\n"

|::| :keyword for 'if': then :keyword for 'end': end :keyword for 'else': else :keyword for 'fail': false |:keyword for 'fail': $fail? :: $fail? :keyword for 'if': $if? :: $if| :conditional depth: |:keyword for 'fail': $fail? :: $fail? :keyword for 'else': $else? :: $else :conditional depth:? :conditional depth:? | |:keyword for 'fail': $fail? :: $fail :keyword for 'else': $else? :: $else :conditional depth:| |:keyword for 'fail': $fail? :: $fail? :keyword for 'end': $end? :: $end :conditional depth:| |:keyword for 'fail': $fail? :: $fail :keyword for 'end': $end? :: $end| |:keyword for 'fail': $fail? :: $fail? :: $1| |:keyword for 'fail': $fail? :: $fail? :: $1 $2| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5 $6| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5 $6 $7| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5 $6 $7 $8| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5 $6 $7 $8 $9| |:keyword for 'fail': $fail? :: $fail? :: $1 $2 $3 $4 $5 $6 $7 $8 $9 $10| |:keyword for 'fail': $fail? :: $fail| |:keyword for 'else': $else? :: $else? :keyword for 'if': $if? :: $if |:conditional depth: |:keyword for 'else': $else? :: $else? :keyword for 'end: $end? :: $end :conditional depth: | |:keyword for 'else': $else? :: $else :keyword for 'end: $end? :: $end | |:keyword for 'else': $else? :: $else? :: $1| |:keyword for 'else': $else? :: $else? :: $1 $2| |:keyword for 'else': $else? :: $else? :: $1 $2 $3| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5 $6| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5 $6 $7| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5 $6 $7 $8| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5 $6 $7 $8 $9| |:keyword for 'else': $else? :: $else? :: $1 $2 $3 $4 $5 $6 $7 $8 $9 $10| |:keyword for 'else': $else? :: $else| |:keyword for 'if': $if? :: $if| |:keyword for 'end': $end? :: $end|

|:: print (formatted)? :message: "{%d}" :arguments:| |:: print (formatted)? :message: "{%d}" :arguments: $n| :message: "{}" :: collect digits of $n |:: collect digits of $n :div: 0 :mod: $mod| :: add digit to message $mod |:: collect digits of $n :div: $div :mod: $mod| :: add digit to message $mod :: collect digits of $div |:: collect digits of $n?| :: divide by 10 :@math: divide $n 10 :: mod by 10 :@math: modulo $n 10 |:: divide by 10 :@math: $div| :div: $div |:: mod by 10 :@math: $mod| :mod: $mod |:: add digit to message $n :@math: $char| :message: $char |:: add digit to message $n?| :@math: add 48 $n |:: print (formatted)? :message: "{}" :arguments: | |:: print (formatted)? :message: "{}"? :arguments: $char| :@stdio: write $char |:: print (formatted)? :message: "\n"| :@stdio: write 10 |:: print (formatted)? :message: $char| :@stdio: write $char |:: print (formatted)|