Skip to content

Instantly share code, notes, and snippets.

@anthonyclays

anthonyclays/Editor

Last active August 29, 2015 14:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anthonyclays/a037da84774ec999c392 to your computer and use it in GitHub Desktop.
Save anthonyclays/a037da84774ec999c392 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Editor
#!/usr/bin/env perl
for (my $N=<>; $N; $N--){
$_ = "";
for (my $L=<>; $L; $L--) {
$_ .= <>;
}
for (my $L=<>; $L; $L--) {
my ($n, $r) = split(' ', <>);
s/($r( |$){$n}/\1/gm;
}
print;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment