fork download
copy 
  1. procedure main()
  2.    every func := ![add2, sub2, mul2, div2, mod2] do
  3.       write(image(func), ": type = ", type(func), "; func(17, 7) = ", func(17, 7))
  4. end
  5.  
  6. procedure add2(a, b)
  7.    return a + b
  8. end
  9.  
  10. procedure sub2(a, b)
  11.    return a / b
  12. end
  13.  
  14. procedure mul2(a, b)
  15.    return a * b
  16. end
  17.  
  18. procedure div2(a, b)
  19.    return a / b
  20. end
  21.  
  22. procedure mod2(a, b)
  23.    return a % b
  24. end
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
procedure add2: type = procedure; func(17, 7) = 24
procedure sub2: type = procedure; func(17, 7) = 2
procedure mul2: type = procedure; func(17, 7) = 119
procedure div2: type = procedure; func(17, 7) = 2
procedure mod2: type = procedure; func(17, 7) = 3
https://ideone.com/ZpGtO1
language:
Icon (iconc 9.5.1)
created:
9 days 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!