(!****************************************************** Mosel User Guide Example Problems ================================= file arc.mos ```````````` Definition of the type 'arc'. (c) 2008 Fair Isaac Corporation author: S. Heipcke, Jan. 2007, rev. June 2018 *******************************************************!) package arcpkg public declarations arc = public record ! Arcs: Source,Sink: string ! Source and sink of arc Cost: real ! Cost coefficient end-record end-declarations (! Alternatively: declarations public arc = record ! Arcs: public Source,Sink: string ! Source and sink of arc public Cost: real ! Cost coefficient end-record end-declarations !) public function is_neighbor(n1,n2: string, A: array(Arcs:set of integer) of arc): boolean returned:=or(a in Arcs ) (( A(a).Source=n1 and A(a).Sink=n2) or ( A(a).Source=n2 and A(a).Sink=n1)) end-function end-package