fork download
copy 
  1. use strict;
  2. use warnings;
  3.  
  4. my @array = ([-1, 0, 1], [1, -1, 0], [0, 1, -1]);
  5. my ($i, $j) = (1, 1);
  6.  
  7. print "OK" if($array[$i][$j] == (-1));
Success #stdin #stdout 0s 4728KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
OK
https://ideone.com/LlPc5
language:
Perl (perl 5.28.1)
created:
12 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!