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

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