Anonymous user
Text processing/Max licenses in use: Difference between revisions
Text processing/Max licenses in use (view source)
Revision as of 00:56, 25 August 2009
, 14 years agoadd m4
(add m4) |
|||
Line 363:
<pre>Max licenses out: 99
At time(s): [2008/10/03_08:39:34, 2008/10/03_08:40:40]</pre>
=={{header|M4}}==
<lang M4>
divert(-1)
define(`current',0)
define(`max',0)
define(`OUT',`define(`current',incr(current))`'ifelse(eval(current>max),1,
`define(`max',current)`'divert(-1)`'undivert(1)`'divert(1)',
`ifelse(current,max,`divert(1)undivert(1)')')')
define(`IN',`define(`current',decr(current))')
define(`for',`divert(-1)')
include(mlijobs.txt))
divert
max
undivert(1)
</lang>
Output:
<pre>
99
@ 2008/10/03_08:39:34 @ 2008/10/03_08:40:40
</pre>
=={{header|MAXScript}}==
|