printfの自作
Posted feedbacks - Perl
反則にしか見えないが、これでも注意事項の
- 標準でついているprintf系関数の使用禁止
- 標準でついているライブラリ以外の使用禁止
を満たしている点に注目。
Dan the Perl Monger
1 2 3 4 5 6 7 8 9 10 11 12 | #!/usr/local/bin/perl
use strict;
use warnings;
sub mysprintf{
my $cmd = join(' ', 'printf', @_);
return `$cmd`
}
if (__FILE__ eq $0){
print mysprintf("%.6g", exp(1));
}
__END__
|


yappy
#4119()
[
C
]
Rating-4/18=-0.22
Rating-4/18=-0.22-0+
[ reply ]