Advertisement
payomaty666

Ejercicio 1

Aug 22nd, 2012
1,044
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. note
  2.     description : "practica1ej2 application root class"
  3.     date        : "$Date$"
  4.     revision    : "$Revision$"
  5.  
  6. class
  7.     APPLICATION
  8.  
  9. inherit
  10.     ARGUMENTS
  11.  
  12. create
  13.     make
  14.  
  15. feature {NONE} -- Initialization
  16.  
  17.     make
  18.             -- Run application.
  19.         do
  20.             --| Add your code here
  21.             print ("Result: %N"+concatenacion("HOLA","MUNDO"))
  22.         end
  23.  
  24.     concatenacion (cadena1: STRING;cadena2: STRING): STRING
  25.         local
  26.             aux : STRING
  27.         do
  28.             if (cadena1.is_empty)
  29.             then Result := cadena2 --caso base 1
  30.             else
  31.                 if (cadena2.is_empty)
  32.                 then Result := cadena1 --caso base 2
  33.                 else --caso inductivo
  34.                     aux:= cadena1.item (1).out+cadena2.item (1).out
  35.                     cadena1.remove_head (1)
  36.                     cadena2.remove_head (1)
  37.                     Result := aux+concatenacion(cadena1,cadena2)
  38.                 end
  39.             end
  40.         end
  41. end
Advertisement
RAW Paste Data Copied
Advertisement