Lucky and even lucky numbers: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
(→{{header|Tcl}}: Added output) |
||
Line 481: | Line 481: | ||
puts "$from'th to $to'th $evenOdd numbers: [join [collectIndices $l [incr from -1] [incr to -1]] ,]" |
puts "$from'th to $to'th $evenOdd numbers: [join [collectIndices $l [incr from -1] [incr to -1]] ,]" |
||
}</lang> |
}</lang> |
||
{{out}} |
|||
<pre> |
|||
bash$ lucky.tcl 1 20 |
|||
1'th to 20'th lucky numbers: 1,3,7,9,13,15,21,25,31,33,37,43,49,51,63,67,69,73,75,79 |
|||
bash$ lucky.tcl 1 20 evenLucky |
|||
1'th to 20'th even lucky numbers: 2,4,6,10,12,18,20,22,26,34,36,42,44,50,52,54,58,68,70,76 |
|||
bash$ lucky.tcl 6000 -6100 |
|||
all lucky numbers from 6000 to 6100: 6009,6019,6031,6049,6055,6061,6079,6093 |
|||
bash$ lucky.tcl 6000 -6100 evenLucky |
|||
all even lucky numbers from 6000 to 6100: 6018,6020,6022,6026,6036,6038,6050,6058,6074,6090,6092 |
|||
bash$ lucky.tcl 10000 |
|||
10000'th lucky number = 115591 |
|||
bash$ lucky.tcl 10000 , evenLucky |
|||
10000'th even lucky number = 111842 |
|||
</pre> |