fork download
copy 
  1. perl -nale '$F[1]=~s/://;$h{$F[0]}=$F[1]if($F[1]>$h{$F[0]});END{for(sort keys(%h)){($x=$h{$_})=~s/^(..)(..)$/\1:\2/;print"$_ $x"}}'
Success #stdin #stdout 0.02s 5348KB
comments (?)
stdin
copy 
1 12:00
1 12:34
1 01:01
1 08:06
2 09:56
2 06:52
stdout
copy 
1 12:34
2 09:56
https://ideone.com/d0DpD
language:
Bash (bash 5.0.3)
created:
13 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!