fork download
copy 
  1. procedure main()
  2.    ary := [2,3,5,7,11]
  3.    every writes(image(!set(ary)) || ", ");
  4.    write()
  5.  
  6.    ary := list(10, 1)
  7.    every writes(image(!set(ary)) || ", ");
  8.    write()
  9.  
  10.    ary := list(10)
  11.    every writes(image(!set(ary)) || ", ");
  12.    write()
  13.  
  14.    every i := 1 to *ary do ary[i] := i
  15.    every writes(image(!set(ary)) || ", ");
  16.    write()
  17. end
Success #stdin #stdout 0.01s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
5, 3, 2, 7, 11, 
1, 
&null, 
5, 10, 4, 9, 3, 8, 2, 7, 1, 6,
https://ideone.com/vYyqaR
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!