아래 씹초보 배열문제 Perl 6로 풀어봤다.

cc(121.163) 2015-01-20 02:48 추천 0

유효 점수가 입력 순서대로 나오는게 아니라 정렬되어 나오지만 ㅎㅎ...

my @score = prompt("5명 심사위원의 점수 입력: ").split(' ').sort[1..3];
say "유효점수: ", @score;
printf "평균: %.1f ", ([+] @score) / @score.elems;