﻿⍝ Solution to SA2 Exercise 4

)load conga

]load C:\sa2\Solutions\PrimeServer
]load C:\sa2\Solutions\StartPrimeServers
⎕VR 'StartPrimeServers'
⎕LX←'StartPrimeServers'
)save C:\temp\StartPrimeServer -force

]load APLProcess
wsid←'c:\temp\StartPrimeServer'
ps1←⎕NEW APLProcess (wsid 'MAXWS=1G PORT=8123' 0)
ps2←⎕NEW APLProcess (wsid 'MAXWS=1G PORT=8124' 0)
cl1←Conga.Clt 'localhost' 8123
cl2←Conga.Clt 'localhost' 8124

cl1.SendRecv 'CountPrimes' (1 5000)
]runtime "(cl1 cl2).SendRecv ↓(⊂'CountPrimes'),⍪(1 5000)(5001 10000)"
]runtime "PrimeServer.CountPrimes 1 10000"
]runtime "(cl1 cl2).SendRecv ↓(⊂'CountPrimes'),⍪(1 6000)(6001 10000)"





	




