fork download
copy 
  1. $b=' ';$s=<STDIN>;print 3*(split $b,$s)[0]+(split $b,$s)[1]+((split $b, $s)[2]-(split $b,$s)[1])%(split $b,$s)[0]+((split $b,$s)[2]-(split $b,$s)[3])%(split $b,$s)[0]."\n";
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
5 1 2 3
stdout
copy 
21
https://ideone.com/dMB189
language:
Perl (perl 5.28.1)
created:
10 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!