fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. my @score = prompt("5명 심사위원의 점수 입력: ").split(' ').sort[1..3];
  5. say "유효점수: ", @score;
  6. printf "평균: %.1f\n", ([+] @score) / @score.elems;
Success #stdin #stdout 1.57s 188224KB
comments (?)
stdin
copy 
7 9 4 8 5
stdout
copy 
5명 심사위원의 점수 입력: 유효점수: 5 7 8
평균: 6.7
https://ideone.com/0qZH9K
language:
Perl (perl 2018.12)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!