This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# Copyright (c) 2015-2016 Trinity College, Dublin | |
# | |
# Permission is hereby granted, free of charge, to any person obtaining a copy | |
# of this software and associated documentation files (the "Software"), to deal | |
# in the Software without restriction, including without limitation the rights | |
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
# copies of the Software, and to permit persons to whom the Software is | |
# furnished to do so, subject to the following conditions: | |
# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
my @in = qw(asfalt asfaltu asfalcie); | |
sub longest_suffix { | |
my $list = shift; | |
my $first = shift(@{$list}); | |
for my $second(@in) { | |
my @a = split(//, $first); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
open(IN, "<", "$ARGV[0]"); | |
binmode(IN, ":encoding(latin-1)"); | |
#open(OUT, ">", "collisions.txt"); | |
#binmode(OUT, ":utf8"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
binmode(STDIN, ":utf8"); | |
my %tweak = ( | |
'áit éigin' => '', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
binmode(STDIN, ":utf8"); | |
binmode(STDOUT, ":utf8"); | |
sub unfada { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="UTF-8" ?> | |
<!DOCTYPE supplementalData SYSTEM "../../common/dtd/ldmlSupplemental.dtd"> | |
<!-- | |
Copyright © 1991-2013 Unicode, Inc. | |
CLDR data files are interpreted according to the LDML specification (http://unicode.org/reports/tr35/) | |
For terms of use, see http://www.unicode.org/copyright.html | |
--> | |
<supplementalData> | |
<version number="$Revision$"/> | |
<transforms> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
open(IN, "<", "$ARGV[0]"); | |
binmode(IN, ":encoding(latin-1)"); | |
#open(OUT, ">", "collisions.txt"); | |
#binmode(OUT, ":utf8"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
binmode(STDIN, ":encoding(UTF-16LE)"); | |
binmode(STDOUT, ":utf8"); | |
binmode(STDERR, ":utf8"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
muirear6far muirearófar | |
z-hiodrocsaídéfheinile 2-hiodrocsaídéfheinile | |
2 hiodrocsaídéfheinil 2-hiodrocsaídéfheinil | |
m6tarbháid mótarbháid | |
ndílucht6idh ndíluchtóidh | |
s6rt sórt | |
n-ord6idh n-ordóidh | |
agdéileálaí ag déileálaí | |
aghlacadh a ghlacadh | |
agusoibriúcháin agus oibriúcháin |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use utf8; | |
use charnames ':full'; | |
use Audio::Wav; | |
use Data::Dumper; | |
my @rwords = qw(heed hid hayed head had pam matter ant palm |