fork download
copy 
  1. #!perl -pl
  2. /\B./;s/$&/P/g;y/TKA/IRT/;$_=reverse;@a=sort split;/$a[-1]/;$_=4-"@-"/3
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
TH QC JH 2H
KC 5S QS 9C
QD 2D TD 5D
9S 5D AD QS
3D 4C 3H JH
9S 4S TS JS
5H 9H 2C AD
5S 4C 3H QD
stdout
copy 
3
3
1
4
1
4
2
1
https://ideone.com/DF2wkP
language:
Perl (perl 5.28.1)
created:
9 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!