結果
問題 | No.1729 ~サンプルはちゃんと見て!~ 16進数と8進数(1) |
ユーザー |
![]() |
提出日時 | 2021-11-17 17:10:20 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 71 ms / 2,000 ms |
コード長 | 395 bytes |
コンパイル時間 | 670 ms |
コンパイル使用メモリ | 13,312 KB |
実行使用メモリ | 13,440 KB |
最終ジャッジ日時 | 2024-12-23 18:08:01 |
合計ジャッジ時間 | 3,080 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 24 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use bigint; use Data::Dumper; use List::Util qw/max/; chomp(my $N = <>); my $dec = 0; my $base = 1; foreach (reverse split //, $N) { $dec += $base * (ord($_) - ord('A') + 10); $base *= 16; } my %h1; while ($dec > 0) { $h1{$dec%8}++; $dec /= 8; } my %h2; push @{$h2{$h1{$_}}}, $_ foreach (keys %h1); print join(" ", sort @{$h2{max keys %h2}}), "\n";