Anonymous user
Changeable words: Difference between revisions
→{{header|Phix}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 972:
underclassman <-> underclassmen
upperclassman <-> upperclassmen
</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Changeable_words
use warnings;
local $_ = do {local(@ARGV, $/) = 'unixdict.txt'; <> =~ s/^.{0,11}\n//gmr };
my $count = 0;
1 while s/\A ((\N*)\N(\N*)) \n(?=.*^ (\2\N\3) \n)/
printf "%3d: %15s <-> %s\n", ++$count, $1, $4 ; '' /emsx
or s/.*\n//;</lang>
{{out}}
<pre>
1: aristotelean <-> aristotelian
2: claustrophobia <-> claustrophobic
3: committeeman <-> committeemen
4: committeewoman <-> committeewomen
5: complementary <-> complimentary
6: confirmation <-> conformation
7: congresswoman <-> congresswomen
8: councilwoman <-> councilwomen
9: craftsperson <-> draftsperson
10: eavesdropped <-> eavesdropper
11: frontiersman <-> frontiersmen
12: handicraftsman <-> handicraftsmen
13: incommutable <-> incomputable
14: installation <-> instillation
15: kaleidescope <-> kaleidoscope
16: neuroanatomy <-> neuroanotomy
17: newspaperman <-> newspapermen
18: nonagenarian <-> nonogenarian
19: onomatopoeia <-> onomatopoeic
20: philanthrope <-> philanthropy
21: prescription <-> proscription
22: schizophrenia <-> schizophrenic
23: shakespearean <-> shakespearian
24: spectroscope <-> spectroscopy
25: underclassman <-> underclassmen
26: upperclassman <-> upperclassmen
</pre>
| |||