Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 68b4ede4c6
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (23 sloc) 0.75 kb
:Namespace Booking
GETName { Lookup ,1 }
GETID { Lookup ,2 }
Z Lookup Input;LookupTable;Col;Key
(LookupTable Key Col) Input
Z LookupTable[LookupTable[;Col] Key;1+2|Col]
Z Book Input;Table;Bookings;BookingId;Rows;Slots
(Table Bookings BookingId) Input
Rows Table[;1] ¨Bookings
Slots 1¨Bookings
{Table[1;1+1] BookingId} ¨ Rows,¨Slots
ZTable
Z MaxFree LookupTable;FreeSlots;MaxFreeSlots;Ids
Ids LookupTable[;1]
⎕ML3
FreeSlots { (~) () } ¨ 1[2] LookupTable
MaxFreeSlots {/} ¨ FreeSlots
⎕ML0
Z ,/ Ids,[1.5]{(),1} ¨ MaxFreeSlots
:EndNamespace
Jump to Line
Something went wrong with that request. Please try again.