Make an product and title it "pornange", trademark it, then allow it to slip into daily usage as a generic noun referencing anything that your product. Example: kleenex and bandaid.
Name:
Anonymous2013-10-20 21:31
#!perl
use strict;
my @words = qx(cat /usr/share/dict/words);
chomp @words;
my @rhymes = qw/orange range ange/;
my @output;
foreach my $word (@words) {
foreach my $end (@rhymes) {
push @output, $word if $word =~ m/$end$/;
}
}
print "$_\n" foreach @output;
Opritmize it if you want. I spent like 3 minutes writing this.
>>1
In case you don't really need a program, you can use this too
egrep 'orange$|range$|ange$' /usr/share/dict/words
Also, for some reason, the program in >>4 returns some duplicated results, but meh. Not like i care.
Name:
Anonymous2013-10-20 21:57
orange porridge from the cottage
ain't no marmalade.. ^^
Name:
Anonymous2013-10-20 22:01
it's takin' hostages
like the NSA.. xD
Name:
Anonymous2013-10-20 22:05
president's payin' homage
singing sweet home stockholm
Name:
Anonymous2013-10-20 23:05
>>7,8,9
Do you speak English? That's not an insult directed at your lack of respect for proper form, it's just that it seems that you can write but not speak. None of those rhyme with orange.
Well crickey, maybe it actually does in your stupid Australian accent, mate!