view src/bob.c @ 12352:cf652da78b89 draft

<wib_jonas> `` perl -pi -e \'s/print (.*)/print($1)/\' /hackenv/bin/password
author HackEso <hackeso@esolangs.org>
date Wed, 04 Nov 2020 14:37:41 +0000
parents f9fd2ce12a6e
children
line wrap: on
line source

#include <stdio.h>
int main(){int i=100;while(--i){printf("%i bottle%s of beer in the wall,\n%i bo"
"ttle%s of beer.\nTake one down, pass it round,\n""%s%s\n\n",i,i?"s":"",i,i?"s":
"",(i-1)?(char[]){(((i-1)/10)?((i-1)/10+'0'):((i-1)%10+'0')),(((i-1)/10)?((i-1)%
10+'0'):' '),(((i-1)/10)?' ':'{TEXT}'),'{TEXT}'}:"",(i-1)?"bottles of beer in the wall":
"No more beers");}}