Anonymous user
Dining philosophers: Difference between revisions
→The structured derivation of the verb (function)
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 3,442:
S - Starting time for the new activity
Q - Queue
U - Upper bound for the number of philosophers
P - Active philosopher
E - Elapsed Time (only for information purposes)
Line 3,460:
(N Q)`((;: o N) j (''c)) h NB. Boxing the names, empty queue
(A T)`((0:items j thinktime&>) o N) h NB. All start thinking
(E U)`(0 ; <. o (2 %~ # o N)) h NB.
[ echo o (time , 'All of them start thinking.'c)
)
| |||