Minimum

Find the minimal number.

IN

1
2
3
4

OUT

1

IN

10
3
19
-50
23

OUT

-50

IN

5
4
0
3
2
1

OUT

0

IN

-13
-15
20
-3

OUT

-15

IN

1123
4000
1000
5500

OUT

1000
Login to submit solution


4 symbols pyth
Mon Sep 19 13:23:02 2016 Sait2000
hS.Q
5 symbols golfscript
Sun Jun 25 09:38:50 2017 Sait2000
~]$0=
7 symbols golfscript
Wed Nov 2 07:57:24 2016 Sait2000
[~]$(\;
15 symbols bash
Sat Aug 9 21:30:03 2014 bugov
sort -n|head -1
25 symbols perl
Thu Sep 4 21:55:23 2014 sago35
#!/usr/bin/perl -p
($_)=sort{$a<=>$b}$_,<>
25 symbols ruby2.0
Sun Oct 5 04:52:07 2014 fl00r
p$<.lines.map(&:to_i).min
28 symbols perl
Sun Aug 10 00:32:43 2014 dionys
#!/usr/bin/perl -p
$_=(sort{$a<=>$b}$_,<>)[0]
28 symbols perl
Sun Aug 24 06:20:24 2014 gabrielmad
#!/usr/bin/perl -p
$a and$_>$a or$a=$_}{$_=$a
28 symbols perl
Thu Sep 4 21:28:31 2014 sago35
#!/usr/bin/perl -p
$_=(sort{$a<=>$b}$_,<>)[0]
29 symbols ruby2.0
Sun Oct 5 04:05:08 2014 fl00r
puts $<.lines.map(&:to_i).min
29 symbols ruby
Wed Sep 21 21:51:14 2016 JJonesJr
puts $<.lines.map(&:to_i).min
33 symbols perl
Sat Aug 9 21:10:24 2014 danieljabailey
$a=<>;$_>$a||($a=$_)for<>;print$a
33 symbols ruby2.0
Wed May 6 20:01:02 2015 NightFury1
$><<$<.read.split.map(&:to_i).min
34 symbols perl
Sat Aug 9 20:58:42 2014 danieljabailey
use List::Util qw(min);print min<>
36 symbols perl
Sun Aug 10 00:30:06 2014 dionys
#!/usr/bin/perl  -p
push@_,$_}{$_=(sort{$a<=>$b}@_)[0]
39 symbols python2
Mon Oct 24 06:51:59 2016 Sait2000
import sys
print min(sys.stdin,key=int)
40 symbols python2
Sat Aug 9 21:10:37 2014 PFischbeck
import sys
print min(map(int,sys.stdin))
40 symbols python2
Sun Aug 10 23:50:12 2014 LLcoolNJ
import sys
print min(map(int,sys.stdin))
40 symbols python2
Mon Aug 11 00:00:34 2014 LLcoolNJ
import sys
print min(map(int,sys.stdin))
46 symbols haskell
Wed Aug 2 09:06:17 2017 YoshikuniJujo
main=interact$show.(+0).minimum.map read.lines

View all solutions