結果
問題 | No.1589 Bit Vector |
ユーザー |
![]() |
提出日時 | 2021-07-09 17:27:03 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 10 ms / 2,000 ms |
コード長 | 203 bytes |
コンパイル時間 | 242 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-07-01 14:01:51 |
合計ジャッジ時間 | 2,590 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 35 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use 5.01; ($n,$k)=glob<>; @i=0..$n-2; say @i*@i*3+2; for(@i){ for(@i){ $i=$_+1; say "XOR $n $i $_"; say "AND $i $i $_"; say "XOR $_ $i $n"; } } $i=$k-1; say "XOR $n $n $n"; say "XOR $n $n $i";