#!/usr/bin/perl
use strict;
use List
::Util qw(reduce min
);
sub preamble {
my ($current_prefix, $string) = (substr($a, 0, $len), substr($b, 0, $len));
while($current_prefix ne $string) {
}
}
my $res = preamble(<<COMMENT);
/** JavaDoc Comment
* Makes things go
*/
COMMENT
print $res eq "\t" ? "true" : "false", "\n";
$res = preamble(<<QUOTE);
> Hello
> There
QUOTE
print $res eq "> " ? "true" : "false", "\n";
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSBMaXN0OjpVdGlsIHF3KHJlZHVjZSBtaW4pOwoKc3ViIHByZWFtYmxlIHsKCXJldHVybiByZWR1Y2UgewoJICAgIG15ICRsZW4gPSBtaW4obGVuZ3RoICRhLCBsZW5ndGggJGIpOwoJICAgIG15ICgkY3VycmVudF9wcmVmaXgsICRzdHJpbmcpID0gKHN1YnN0cigkYSwgMCwgJGxlbiksIHN1YnN0cigkYiwgMCwgJGxlbikpOwoJICAgIAoJICAgIHdoaWxlKCRjdXJyZW50X3ByZWZpeCBuZSAkc3RyaW5nKSB7CgkgICAgCWNob3AgJGN1cnJlbnRfcHJlZml4OwoJICAgIAljaG9wICRzdHJpbmc7CgkgICAgfQoJICAgIAoJICAgIHJldHVybiAkY3VycmVudF9wcmVmaXg7Cgl9IHNwbGl0IC9cbi8sIGpvaW4gJycsIEBfOwp9CgpteSAkcmVzID0gcHJlYW1ibGUoPDxDT01NRU5UKTsKCS8qKiBKYXZhRG9jIENvbW1lbnQKCSAqIE1ha2VzIHRoaW5ncyBnbwoJICovCkNPTU1FTlQKCnByaW50ICRyZXMgZXEgIlx0IiA/ICJ0cnVlIiA6ICJmYWxzZSIsICJcbiI7CgokcmVzID0gcHJlYW1ibGUoPDxRVU9URSk7Cj4gSGVsbG8KPiBUaGVyZQpRVU9URQoKcHJpbnQgJHJlcyBlcSAiPiAiID8gInRydWUiIDogImZhbHNlIiwgIlxuIjsK