Post History
Haskell, 221 215 bytes f=a 99 (#)=(++) a n=d n#", "#c".\n"n#b(n-1) b 0="Go to the store and buy some more, "#d 99#"." b n="Take one down and pass it around, "#d n#".\n\n"#a n c m n=show n#"...
Answer
#2: Post edited
by
Hakerh400
·
2021-08-05T22:46:22Z (over 3 years ago)
# [Haskell], 221 bytes- <!-- language-all: lang-hs -->
- f=a 99
- (#)=(++)
a n=c" on the wall, "n#c"."n#b(n-1)b 0="Go to the store and buy some more, "#d 99b n="Take one down and pass it around, "#d n#""#a n- c m n=show n#" bottle"#['s'|n>1]#" of beer"#m
d=c" on the wall."[Try it online!][TIO-krzhfhel]- [Haskell]: https://www.haskell.org/
[TIO-krzhfhel]: https://tio.run/##XY6xbsMwDER3fcVBGmIjbdCMGdS1H9BuTQfKouEgEhlYMowC/XdXSbdOBB7eHW@icuWUtm30hNPJdK733X7fG4L4wUIFdWKslNITrLjBHs7Sbujk@dibgBdv3xRVH1qpOjNIIsLyjaKZkRtpSRfv7aGV2g@6cutlRF3lId@oFFwqaNZF4p8tzp6lvXJtiBmQW7JMut45gtaa2LrPXdn9yOvxqzEdEZhn67KJ/4Yf7JbpIvC4LfW9zhi3Xw "Haskell – Try It Online"
- # [Haskell], <del>221</del> 215 bytes
- <!-- language-all: lang-hs -->
- f=a 99
- (#)=(++)
- a n=d n#", "#c".
- "n#b(n-1)
- b 0="Go to the store and buy some more, "#d 99#"."
- b n="Take one down and pass it around, "#d n#".
- "#a n
- c m n=show n#" bottle"#['s'|n>1]#" of beer"#m
- d=c" on the wall"
- [Try it online!][TIO-krzi6bw6]
- [Haskell]: https://www.haskell.org/
- [TIO-krzi6bw6]: https://tio.run/##JY4xbsMwDEV3neKDGmIjadCMGdS1B2i3tINkyXAQiQwsGUaB3t1lUoALP/H4/uTrLeW8baPzOJ9NZ3vX7fe98WAXwZYOIDvQ8YuJbej45dSbgFdH74KmMyXUJnOC54iw/KBKSSiaPMCoPy0dSRF29OlvCcIJUVZ@AndfK64NfpaF4z@hTrWpz2oHM6AoWidZHwcEaS0nspdd3f3y2@lbMxkRUprJFhPdoDs/a60@Z9qKvzIc7kv7aDPG7Q8 "Haskell – Try It Online"
#1: Initial revision
by
Hakerh400
·
2021-08-05T22:39:51Z (over 3 years ago)
# [Haskell], 221 bytes
<!-- language-all: lang-hs -->
f=a 99
(#)=(++)
a n=c" on the wall, "n#c".\n"n#b(n-1)
b 0="Go to the store and buy some more, "#d 99
b n="Take one down and pass it around, "#d n#"\n\n"#a n
c m n=show n#" bottle"#['s'|n>1]#" of beer"#m
d=c" on the wall."
[Try it online!][TIO-krzhfhel]
[Haskell]: https://www.haskell.org/
[TIO-krzhfhel]: https://tio.run/##XY6xbsMwDER3fcVBGmIjbdCMGdS1H9BuTQfKouEgEhlYMowC/XdXSbdOBB7eHW@icuWUtm30hNPJdK733X7fG4L4wUIFdWKslNITrLjBHs7Sbujk@dibgBdv3xRVH1qpOjNIIsLyjaKZkRtpSRfv7aGV2g@6cutlRF3lId@oFFwqaNZF4p8tzp6lvXJtiBmQW7JMut45gtaa2LrPXdn9yOvxqzEdEZhn67KJ/4Yf7JbpIvC4LfW9zhi3Xw "Haskell – Try It Online"