fork download 
  1. with Ada.Text_Io; use Ada.Text_Io;
  2. procedure Nest is
  3.    X : Integer := 4;
  4.    function F (Y: Integer) return Integer is
  5.    begin return X + Y; end F;
  6.    function G (X : Integer) return Integer is
  7.    begin return F(3 * X); end G;
  8. begin Put_Line (Integer'Image (G(5)));
  9. end Nest;
Success #stdin #stdout 0.01s 1716KB
comments (?)
stdin 
Standard input is empty
stdout 
 19
https://ideone.com/nfL58
language:
Ada95 (gnat 8.3)
created:
14 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!