Advertisement
cardel

Punto paso por referencia

Jun 9th, 2024 (edited)
653
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.33 KB | None | 0 0
  1. span class="kw2"> let
  2.     f = proc(x,y)
  3.         begin
  4.             set x = +(x,2);
  5.             set y = +(y,3);
  6.             -(x,y)
  7.         end
  8.     g = proc(m,n,o)
  9.         begin
  10.             set n = (m n o);
  11.             set o = (m n o);
  12.             -(n,o)     
  13.         end
  14.     x = 5
  15.     y = 7
  16.     z = 9
  17.     in
  18.         begin
  19.       set x = (g f y (g f y z));
  20.       set y = (g f z (g f x z));
  21.       set z = (g f x (g f z x));
  22.             +(x,+(y,z))
  23.         end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement