Jump to content

Photo

I almost missed National "Drink Beer Day" but...


9 replies to this topic

#1 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 318 posts
  • Location:The Great White North

Posted Fri Sep 29, 2017 9:26 AM

I found out late in the day that yesterday was national beer drink day.

 

https://www.daysofth...drink-beer-day/

 

Thankfully I had just  enough time to enjoy a very dark ale from Ireland while watching TV.

 

In honour of this auspicious day, I thought I would take the opportunity to show how you can create your own language in Forth. (Of course I had to tie that in)

 

Here is a program written in my new language called BREWER

: BEERS ( n -- )   \ Usage:  99 BEERS
      POPONE
      DRINK
         HOWMANY BOTTLES OF BEER ON THE WALL ,
         HOWMANY BOTTLES OF BEER ,
         TAKE ONE DOWN PASS IT AROUND ,
         ONELESS BOTTLES OF BEER ON THE WALL .
      ANOTHER 
      HANGOVER ;

And on the off chance that anyone cares... here is the source code for the language. :-)

 

Spoiler

 

Please drink responsibly

 

 

 

 



#2 TheBF OFFLINE  

TheBF

    Moonsweeper

  • Topic Starter
  • 318 posts
  • Location:The Great White North

Posted Fri Sep 29, 2017 9:46 AM

LOL!

 

And for the real computer scientist we added the word BINARY so you can do this:

 

99 BINARY BEERS

 

 

 

 

 

Attached Files



#3 atrax27407 OFFLINE  

atrax27407

    Dragonstomper

  • 743 posts

Posted Fri Sep 29, 2017 10:18 AM

Only in FORTH!!



#4 InsaneMultitasker OFFLINE  

InsaneMultitasker

    Stargunner

  • 1,704 posts

Posted Fri Sep 29, 2017 10:22 AM

hahaha that's great :)



#5 Ksarul OFFLINE  

Ksarul

    River Patroller

  • 4,159 posts

Posted Fri Sep 29, 2017 11:32 AM

I like it!  :)  Beer is good! Forth is good! Forth beer is better. . .



#6 Sinphaltimus OFFLINE  

Sinphaltimus

    Stargunner

  • 1,954 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Fri Sep 29, 2017 6:30 PM

I like it!  :)  Beer is good! Forth is good! Forth beer is better. . .

 

 

Because that's when the buzz kicks in.



#7 Lee Stewart OFFLINE  

Lee Stewart

    River Patroller

  • 3,341 posts
  • Location:Silver Run, Maryland

Posted Sat Sep 30, 2017 8:16 AM

Nice!



#8 BillyHW ONLINE  

BillyHW

    River Patroller

  • 3,337 posts

Posted Sat Sep 30, 2017 8:25 AM

You can't miss National Drink Beer day if you drink beer every day.  Just sayin'...



#9 notwhoyouthink OFFLINE  

notwhoyouthink

    Star Raider

  • 70 posts

Posted Thu Oct 5, 2017 3:41 PM

Using your method, there is still a way to miss it: drink so much the night before in anticipation that you sleep away all of the following day.



#10 TheBF OFFLINE  

TheBF

    Moonsweeper

  • Topic Starter
  • 318 posts
  • Location:The Great White North

Posted Thu Oct 5, 2017 6:01 PM

Using your method, there is still a way to miss it: drink so much the night before in anticipation that you sleep away all of the following day.

 

LOL!  Now THAT is a solid analysis. . ;-)






0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users