duplicates = multiple editions
A Classical Introduction to Modern Number Theory, Kenneth Ireland Michael Rosen
A Classical Introduction to Modern Number Theory, Kenneth Ireland Michael Rosen
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| sub bottles() { sprintf qq{%s bottle%s of beer} | |
| , $_ || 'No' | |
| , $_==1 ? '' : 's'; | |
| } | |
| sub store() { $_=99; qq{Go to the store, buy some more...\n}; } | |
| sub wall() { qq{ on the wall\n} } |