Text processing/Max licenses in use: Difference between revisions
Content added Content deleted
(add JavaScript) |
m (Fixed lang tags.) |
||
Line 12: | Line 12: | ||
=={{header|APL}}== |
=={{header|APL}}== |
||
{{works with|APL2}}{{trans|J}} |
{{works with|APL2}}{{trans|J}} |
||
⚫ | |||
<pre> |
|||
⚫ | |||
I ← TXT[;8+⎕IO] |
I ← TXT[;8+⎕IO] |
||
D ← TXT[;⎕IO+14+⍳19] |
D ← TXT[;⎕IO+14+⍳19] |
||
lu ← +\ ¯1 * 'OI' ⍳ I |
lu ← +\ ¯1 * 'OI' ⍳ I |
||
mx ← (⎕IO+⍳⍴lu)/⍨lu= max ← ⌈/ lu |
mx ← (⎕IO+⍳⍴lu)/⍨lu= max ← ⌈/ lu |
||
⎕ ← 'Maximum simultaneous license use is ' , ' at the following times:' ,⍨ ⍕max ⋄ ⎕←D[mx;] |
⎕ ← 'Maximum simultaneous license use is ' , ' at the following times:' ,⍨ ⍕max ⋄ ⎕←D[mx;]</lang> |
||
⚫ | |||
</pre> |
|||
<pre> |
|||
⚫ | |||
2008/10/03_08:39:34 |
2008/10/03_08:39:34 |
||
2008/10/03_08:40:40 |
2008/10/03_08:40:40</lang> |
||
</pre> |
|||
=={{Header|AutoHotkey}}== |
=={{Header|AutoHotkey}}== |