Well, I won't win any prizes but I just wanted to rejoice in writing my first classmethod in objectscript.
Here is my less than elegant solution
ClassMethod Detector(a As %String, b As %String) As %Boolean
{
SET a=$CHANGE(a," ","")
SET a=$ZCVT(a,"l")
SET b=$CHANGE(b," ","")
SET b=$ZCVT(b,"l")
SET c = ""
FOR i = 1 :1 :$L(a)
{
SET p = $F(b,$E(a,1))
if p { SET $E(b,p-1)="" } else { set c=c_$E(a,1) }
set $E(a,1)=""
}
if ($L(a) + $L(b) + $L(c) ) { q 0 } else { q 1 }
}
}
saving this for later. I need some refreshers!
Congulations!
Followers:
Mindy has no followers yet.
Following:
Mindy has not followed anybody yet.
Global Masters badges:




