Codebase list ohcount / 420c4794-75b8-4551-a2c5-42f5fb1d3fbf/main test / src_dir / dylan1.dylan
420c4794-75b8-4551-a2c5-42f5fb1d3fbf/main

Tree @420c4794-75b8-4551-a2c5-42f5fb1d3fbf/main (Download .tar.gz)

dylan1.dylan @420c4794-75b8-4551-a2c5-42f5fb1d3fbf/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
// random program i found
define function describe-list(my-list :: <list>, #key verbose?) => ()
  format(*standard-output*, "{a <list>, size: %d", my-list.size);
  if (verbose?)
    format(*standard-output*, ", elements:");
    for (item in my-list)
      format(*standard-output*, " %=", item);
    end for;
  end if;
  format(*standard-output*, "}");
end function;
    
describe-list(#(1, 2, 3, 4, 5, 6));
// prints "{a <list>, size: 6}"

describe-list(#(5, 7, 3), verbose?: #t);
// prints "{a <list>, size: 3, elements: 5 7 3}"