Mercurial > repo

view src/bob.c @ 11294:9c53d92085c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(alphabet).*/$1 doesn\'t have the letter C.\\n/ or die; open$o,">",$f; print$o $_ or die; print substr$_,300;
author HackBot
date Mon, 01 Jan 2018 18:00:26 +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");}}