100 doors: Difference between revisions
Content deleted Content added
→TI-89 BASIC: new example |
|||
| Line 1,480: | Line 1,480: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|TI-89 BASIC}}== |
|||
<pre style="font-family:'TI Uni'">Define doors(fast) = Func |
|||
Local doors,i,j |
|||
seq(false,x,1,100)→doors |
|||
If fast Then |
|||
For i,1,10,1 |
|||
not doors[i^2] → doors[i^2] |
|||
EndFor |
|||
Else |
|||
For i,1,100,1 |
|||
For j,i,100,i |
|||
not doors[j] → doors[j] |
|||
EndFor |
|||
EndFor |
|||
EndIf |
|||
Return doors |
|||
EndFunc</pre> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |
||