git.oblomov.eu Git - ohcount/blob - test/src_dir/dylan1.dylan

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