fork download 
  1. with Ada.Text_Io; use Ada.Text_Io;
  2. procedure Nested is
  3.  function F (X: Integer; Y: Integer) 
  4.  return Integer is
  5.   function G (Y: Integer) return Integer is
  6.   begin
  7.    if (Y > 0) then return 1 + G(Y-1);
  8.    else return X; end if;
  9.   end G;
  10.  begin return G (Y); end F;
  11. begin
  12.  Put_Line (Integer'Image (F(3,2)));
  13. end Nested;
  14.  
Success #stdin #stdout 0.01s 1716KB
comments (?)
stdin 
Standard input is empty
stdout 
 5
https://ideone.com/dhHN3
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!