Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
36
Task/Stack/LOLCODE/stack.lol
Normal file
36
Task/Stack/LOLCODE/stack.lol
Normal file
|
|
@ -0,0 +1,36 @@
|
|||
HAI 2.3
|
||||
HOW IZ I Init YR Stak
|
||||
Stak HAS A Length ITZ 0
|
||||
IF U SAY SO
|
||||
|
||||
HOW IZ I Push YR Stak AN YR Value
|
||||
Stak HAS A SRS Stak'Z Length ITZ Value
|
||||
Stak'Z Length R SUM OF Stak'Z Length AN 1
|
||||
IF U SAY SO
|
||||
|
||||
HOW IZ I Top YR Stak
|
||||
FOUND YR Stak'Z SRS DIFF OF Stak'Z Length AN 1
|
||||
IF U SAY SO
|
||||
|
||||
HOW IZ I Pop YR Stak
|
||||
I HAS A Top ITZ I IZ Top YR Stak MKAY
|
||||
Stak'Z Length R DIFF OF Stak'Z Length AN 1
|
||||
FOUND YR Top
|
||||
IF U SAY SO
|
||||
|
||||
HOW IZ I Empty YR Stak
|
||||
FOUND YR BOTH SAEM 0 AN Stak'Z Length
|
||||
IF U SAY SO
|
||||
|
||||
I HAS A Stak ITZ A BUKKIT
|
||||
I IZ Init YR Stak MKAY
|
||||
I IZ Push YR Stak AN YR "Fred" MKAY
|
||||
I IZ Push YR Stak AN YR "Wilma" MKAY
|
||||
I IZ Push YR Stak AN YR "Betty" MKAY
|
||||
I IZ Push YR Stak AN YR "Barney" MKAY
|
||||
|
||||
IM IN YR Loop UPPIN YR Dummy TIL I IZ Empty YR Stak MKAY
|
||||
VISIBLE I IZ Pop YR Stak MKAY
|
||||
IM OUTTA YR Loop
|
||||
|
||||
KTHXBYE
|
||||
Loading…
Add table
Add a link
Reference in a new issue