go to post Vitaliy Serdtsev · Jun 23, 2022 See MultiValue Basic | Caché Alternative Exists for SOUNDEX() Workaround: Class dc.test [ Abstract ] { ClassMethod Test() { w ..SOUNDEX("M"),! ;or &sql(select SOUNDEX('McD') into :r) w r,! } ClassMethod SOUNDEX(s) As %String [ Language = mvbasic, SqlName = SOUNDEX, SqlProc ] { RETURN SOUNDEX(s) } } Result: USER>d ##class(dc.test).Test() M000 M230
go to post Vitaliy Serdtsev · May 17, 2022 Now on evaluation.intersystems.com for Windows/MacOSX/Container allows to download the version of IRIS 2020.1CE, and for the rest - IRIS 2021.2CE. What happened and when will the problem with downloading the latest version disappear once and for all?
go to post Vitaliy Serdtsev · May 13, 2022 It gives an incorrect result for some data, for example: Detector("abbz", "abzz") Detector("aaz", "azz") Detector("azz", "aaz")
go to post Vitaliy Serdtsev · May 13, 2022 Without loops: size = 82 (likely the code can be further reduced) ClassMethod Detector( a As %String, b As %String) As %Boolean { s a=$zu(28,a,6),b=$zu(28,b,6) q $l(a)=$l(b)&(a'=$tr(a,b,a_b))&(b'=$tr(b,a,b_a)) ;or s a=$zu(28,a,6),b=$zu(28,b,6) q $l(a)=$l(b)&(a'=$tr(a,b,a_b))&(a'=$tr(a,a_b,b)) }
go to post Vitaliy Serdtsev · May 12, 2022 I follow a simple rule: first I change the data, and only then I put the constraints in the code. Not the other way around.
go to post Vitaliy Serdtsev · May 12, 2022 This is the case when don't know whether to stop or continue.
go to post Vitaliy Serdtsev · May 12, 2022 Excellent work. You have come up with an additional optimization different from mine. Your code can be improved to 66. size = 68 ClassMethod Detector( a As %String, b As %String) As %Boolean { f i=65:1:91{q:$$r(a)'=$$r(b)} q i=91 r(x)q $l($$$UPPER(x),$c(i)) } size = 67 ClassMethod Detector( a As %String, b As %String) As %Boolean { f i=0:1:91{q:$$r(a)'=$$r(b)} q i=91 r(x)q $l($zu(28,x,6),$c(i)) } $$$ALPHAUP(x) == $zu(28,x,6) size = 66 ClassMethod Detector( a As %String, b As %String) As %Boolean { f i=90:-1:0{q:$$r(a)'=$$r(b)} q 'i r(x)q $l($zu(28,x,6),$c(i)) }
go to post Vitaliy Serdtsev · May 11, 2022 Ok. size = 190 ClassMethod Compress(s As %String) As %String { a s a=$p(s,",",$i(i)),d=$p(s,",",i+1)-a f c=1:1{q:d*c+a'=$p(s,",",i+c)} s q=$zabs(d),v=$s(c>2&d:"-"_(c-1*d+a)_$s(q=1:"",1:"/"_q),c>1&'d:"*"_c,1:0) s:v'=0 $p(s,",",i,i+c-1)=a_v q:a="" s g a } size = 189 ClassMethod Compress(s As %String) As %String { f i=1:1:2e6{s a=$p(s,",",i),d=$p(s,",",i+1)-a f c=1:1{q:d*c+a'=$p(s,",",i+c)} s q=$zabs(d),v=$s(c>2&d:"-"_(c-1*d+a)_$s(q=1:"",1:"/"_q),c>1&'d:"*"_c,1:0) s:v'=0 $p(s,",",i,i+c-1)=a_v} q s }
go to post Vitaliy Serdtsev · May 11, 2022 (And I think you may be waiting a long time for the Encoder game to close) The author seems to have forgotten or this no longer relevant. I'm not interested in opening code when there are no alternatives and there is no competitive spirit.
go to post Vitaliy Serdtsev · May 11, 2022 size = 74 ClassMethod Detector( a As %String, b As %String) As %Boolean { q $$r(a)=$$r(b) r(x)f i=65:1:90{s $li(y,i)=$l($zcvt(x,"u"),$c(i))} q y } I'm not publishing the option with size = 73 yet, to wait, maybe someone will guess how to do it or offer an ever shorter option (by analogy with Code Golf - Encoder). UPD: I managed to reduce size to 72.
go to post Vitaliy Serdtsev · May 10, 2022 Example Class dc.golf.Anagram { ClassMethod Detector( a As %String, b As %String) As %Boolean { f c="a","b"{ s @c=$zstrip($zcvt(@c,"U"),"*W") } w $$$quote(a),":",$l(a)," - ",$$$quote(b),":",$l(b),! q $tr(a,b)=$tr(b,a)&($l(a)=$l(b)) } } Output (tested on IRIS 2021.2CE): USER>w ##class(dc.golf.Anagram).Detector("apple", "pale") <UNDEFINED>zDetector+2^dc.golf.Anagram.1 *a If I change Undefined, then there is no error, but the result is incorrect: USER>d $system.Process.Undefined(2) USER>w ##class(dc.golf.Anagram).Detector("apple", "pale") "apple":5 - "pale":4 0 The code works correctly if change the signature of the method (ProcedureBlock/PublicList/new), but this is a violation of the conditions of the task.
go to post Vitaliy Serdtsev · May 4, 2022 See %ZEN.Auxiliary.jsonSQLProvider:%WriteJSONStreamFromSQL() Simple example Class dc.test Extends %Persistent { Property int As %Integer; Property str As %VarString; Property bool As %Boolean; Property Date As %Date; ClassMethod Test() { d ..%KillExtent() &sql(insert into dc.test("int",str,bool,"Date") select 30,'Hello Caché',0,current_date union select 303,'ăîşţâ',1,0 union select null,null,null,null) s stream=##class(%Stream.FileBinary).%New(), stream.Filename="c:\temp\test.json", sql="select * from dc.test", format="twu", maxRows=0 s status=##class(%ZEN.Auxiliary.jsonSQLProvider).%WriteJSONStreamFromSQL(.stream, sql, format, maxRows) d:$$$ISOK(status) stream.%Save() } } The contents of the file test.json (UTF8): { "children":[ {"ID":1,"Date":"04.05.2022","bool":0,"int":30,"str":"Hello Caché"} ,{"ID":2,"Date":"31.12.1840","bool":1,"int":303,"str":"ăîşţâ"} ,{"ID":3,"Date":"","bool":"","int":"","str":""} ] }
go to post Vitaliy Serdtsev · May 3, 2022 In Ensemble 2014, which the author indicated in his question, there are no classes %Library.DynamicObject and %Library.DynamicArray
go to post Vitaliy Serdtsev · May 3, 2022 My current result: size = 94 84 ClassMethod Detector( a As %String, b As %String) As %Boolean { s:$l(a)>$l(b) i=b,b=a,a=i f i=1:1:$l(a){s b=$replace(b,$e(a,i),"",,1,1)} q b?." " }
go to post Vitaliy Serdtsev · Apr 29, 2022 w $tr("123-45-6789","123456789","256128799"),! w $tr("123-45-6789","123456789","891445555"),!Output: 256-12-8799 891-44-5555 Based on: Yet another use case for $translate: date conversion
go to post Vitaliy Serdtsev · Apr 27, 2022 I already tried option 1 with Timeformat=1 for the avg and didn't work. Have you changed the TimeFormat at the process or system level? If at the process level, then most likely you have changed this value in one process, and are executing the query in another. Therefore, there is no effect. If at the system level, then the query should work. To avoid uncertainty, change the definition of the field Property PackingTimeSpent As %Time; and execute in SMP for Display Mode select PackingTimeSpent from MSDS_Serenity.KitlabelAssoc The hh:mm:ss format string should be displayed. so eg. select %external(CAST(+avg(166.38) as TIME)) didn't work for me Two remarks: this will work as intended only if you have changed the TimeFormat=1 at the system level avg(166.38) - it's pointless to write like that. you mentioned the example above and I'm not sure to which one are youi refering to with so many replies, so can you point me to which one exactly See Time-to-String Conversionlink Try this (does not depend on the TimeFormat value of the current locale): select TO_CHAR(avg(PackingTimeSpent),'HH24:MI:SS') average from MSDS_Serenity.KitlabelAssoc where label='00007IT4'PS: By the way, I noticed in your screenshots the differences in queries: somewhere you write where label='00007IT4'somewhere you write where ID='00007IT4' Is this how it should be? To avoid unnecessary questions, please do not change everytime the names of the fields in the queries. This is misleading.
