Revision as of 17:29, 20 May 2021 (view source) rosettacode>Tybalt89 (→‎{{header\|Phix}}) ← Older edit		Revision as of 19:31, 20 May 2021 (view source) rosettacode>Tybalt89 (→‎{{header\|Perl}}) Newer edit →
Line 973: upperclassman <-> upperclassmen </pre> =={{header\|Perl}}== Line 982 ⟶ 983: local $_ = do {local(@ARGV, $/) = 'unixdict.txt'; <> =~ s/^.{0,11}\n//gmr }; my $count = 0; printf "%3d: %15s <-> %s\n", ++$count, $1, $4 ~~; '' /emsx~~▼ 1 while s/\A^ ((\N)\N(\N)) \n(?=.^ (\2\N\3) \n)/gmsx;</lang> ▲ printf "%3d: %15s <-> %s\n", ++$count, $1, $4 ; '' /emsx ~~or s/.\n//;</lang>~~ {{out}} <pre>

Changeable words: Difference between revisions

Changeable words (view source)