Submission #931519


Source Code Expand

use v6;

my Str $s = get;
say ($s.chars div 2) - $s.comb.grep(* eq 'p')

Submission Info

Submission Time
Task D - AtCoDeer and Rock-Paper
User C01L
Language Perl6 (rakudo-star 2016.01)
Score 300
Code Size 76 Byte
Status AC
Exec Time 869 ms
Memory 66412 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 25
Set Name Test Cases
Sample 0_000.txt, 0_001.txt
All 0_000.txt, 0_001.txt, 1_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt, 1_012.txt, 1_013.txt, 1_014.txt, 1_015.txt, 1_016.txt, 1_017.txt, 1_018.txt, 1_019.txt, 1_020.txt, 1_021.txt, 1_022.txt, 1_023.txt, 1_024.txt
Case Name Status Exec Time Memory
0_000.txt AC 869 ms 66412 KB
0_001.txt AC 194 ms 51948 KB
1_002.txt AC 433 ms 63912 KB
1_003.txt AC 336 ms 61228 KB
1_004.txt AC 428 ms 63908 KB
1_005.txt AC 327 ms 61232 KB
1_006.txt AC 435 ms 63912 KB
1_007.txt AC 207 ms 53612 KB
1_008.txt AC 435 ms 63908 KB
1_009.txt AC 433 ms 63912 KB
1_010.txt AC 430 ms 63908 KB
1_011.txt AC 343 ms 61856 KB
1_012.txt AC 430 ms 63912 KB
1_013.txt AC 216 ms 54508 KB
1_014.txt AC 424 ms 62888 KB
1_015.txt AC 371 ms 61740 KB
1_016.txt AC 423 ms 62148 KB
1_017.txt AC 403 ms 61752 KB
1_018.txt AC 413 ms 61260 KB
1_019.txt AC 199 ms 52716 KB
1_020.txt AC 402 ms 60380 KB
1_021.txt AC 376 ms 60508 KB
1_022.txt AC 399 ms 59752 KB
1_023.txt AC 382 ms 59692 KB
1_024.txt AC 431 ms 63908 KB