home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / !ArmBob / progs / Apply < prev    next >
Text File  |  1994-06-22  |  183b  |  17 lines
  1. /* functions and vectors are first class citizens */
  2. apply(v)
  3. {
  4.  return (v[0](v[1]));
  5. }
  6.  
  7. f(x)
  8. { return 100*x; }
  9.  
  10. main()
  11. {
  12.  x = newvector(2);
  13.  x[0] = f;
  14.  x[1] = 7;
  15.  print(apply(x));
  16. }
  17.