codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl use List::Util 'max'; print 'Insira 5 numeros divididos por espacos: '; my @i = map { /(\d+)/ } split ' ', <>; #captura o input filtrando por numeros e joga em um array conforme a divisao por espacos if(scalar(@i) == 5) { #verificao se o array possui 5 itens print 'Max: ' . max(@i) . "\n"; } else { #ops, alguem colocou mais de 5 numeros print "Insira 5 numeros! Letras sao excluidas!'\n"; }
Private
[
?
]
Run code
Submit