One of n lines in a file: Difference between revisions
Content deleted Content added
→Tcl: Added implementation |
m whitespace |
||
Line 21: | Line 21: | ||
=={{header|Ada}}== |
=={{header|Ada}}== |
||
<lang Ada>with Ada.Text_IO, Ada.Numerics.Float_Random; |
<lang Ada>with Ada.Text_IO, Ada.Numerics.Float_Random; |
||
Line 109: | Line 108: | ||
Sample output:<pre>99470 99806 99757 99921 100213 100001 99778 100385 100081 100588</pre> |
Sample output:<pre>99470 99806 99757 99921 100213 100001 99778 100385 100081 100588</pre> |
||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
||
<lang ocaml>let one_of_n n = |
<lang ocaml>let one_of_n n = |
||
let rec aux i r = |
let rec aux i r = |
||
Line 142: | Line 139: | ||
100620 99719 99928 99864 99760 100151 99553 100529 99800 100076 |
100620 99719 99928 99864 99760 100151 99553 100529 99800 100076 |
||
</pre> |
</pre> |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |