fork(3) download
copy 
  1. sub r{$_[0]=<>}
  2. sub wr{print@_}
  3. $_=q.
  4.  
  5. program test;
  6. var a, b, c: integer;
  7. begin
  8.     readln(a);
  9.     readln(b);
  10.     c := a + b;
  11.     writeln(c);
  12. end.
  13.  
  14. ;s/\b(\w)\b/\$$1/g
  15. ;s/^\S.*|.{4}n|://gm
  16. ;eval
  17.  
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
10
25
stdout
copy 
35
https://ideone.com/DFANsv
language:
Perl (perl 5.28.1)
created:
7 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!