SFN - system file number

If you select the text with the mouse, you will see spaces on the right in the second "Output".
In general, I think that such details should be enclosed in quotation marks.

Ok. If the nuances of formatting spaces and line feed are unimportant, then can yet shorten Robert's code:

ClassMethod Build(f As %Integer)
{
 s a="#" f i=f:-1:1 w !?i,a s a=a_"##"
}

I hope that Eduard will be formulate the conditions of the task more carefully in the future.

PS: Robert, you shouldn't have rushed to remove your solution.

In any case, your solution was the best.

You are absolutely right.
There should be no discrepancies in the description of the task and in the code for checking the solution.

I suggest waiting for an answer from @Eduard Lebedyuk, the author of the discussion, who knows how really should be.

Perhaps the author wanted to test us for attentiveness ?

I'm looking at the output validation code, not Output, where there are no spaces at all on the right. It is a pity that there is confusion because of this!

Class codeGolf.test.Pyramid Extends %UnitTest.TestCase
{

ClassMethod openDisplay(Output filename As %String)
{
  Set dir=##class(%SYSTEM.Process).CurrentDirectory()
  Set filename=dir_"temp.txt"
  Open filename:("NRW"):5
  USE filename
}

ClassMethod getResult(filename As %String, Output list As %ListOfDataTypes)
{
  Set list = ##class(%ListOfDataTypes).%New()
  Set file = ##class(%File).%New(filename)
  Set sc = file.Open( "R" )
  If $$$ISERR(sc) quit

  While 'file.AtEnd {
    Do list.Insert(file.ReadLine())
  }
  Do file.Close()
  Do ##class(%File).Delete(filename)
}

Method TestSimple()
{
  Do ..openDisplay(.filename)
  Do ##class(codeGolf.Pyramid).Build(3)
  CLOSE filename
  Do ..getResult(filename, .result)
  Do $$$AssertEquals(result.GetAt(1), "  #  ")
  Do $$$AssertEquals(result.GetAt(3), "#####")
}

Method TestComplex()
{
  Do ..openDisplay(.filename)
  Do ##class(codeGolf.Pyramid).Build(40)
  CLOSE filename
  Do ..getResult(filename, .result)
  Do $$$AssertEquals(result.GetAt(1),  "                                       #                                       ")
  Do $$$AssertEquals(result.GetAt(23), "                 #############################################                 ")
  Do $$$AssertEquals(result.GetAt(40), "###############################################################################")
}

}

ClassMethod Build(f As %Integer)
{
 s a="#" f i=f:-1:1 w ?i-1,a,?f*2-1,! s a=a_"##"
}

PS: if you look at the class codeGolf.test.Pyramid, you can see that the format of the output data for f=3 should be as follows:

"  #  "
" ### "
"#####"

So be careful.

Your example does not take into account which element is selected.

For example, if you select the last element, then the list wins instead of the delimited string.

s L=1e4,N=1e5,a="1",b=$lb(1)
f i=2:1:L s a=a_"_"_i,b=b_$lb(i)

s t=$zh
f i=1:1:N s c=$p(a,"_",L)
w $zh-t," s.",!  

s t=$zh
f i=1:1:N s c=$li(b,L)
w $zh-t," s.",!

I'll put in my five cents too.

Firstly, Apache for Windows is installed very easily: you just need to unpack the archive and, if necessary (this is done once), register the service.
Secondly, it is not difficult to find the Apache distribution for Windows, for example here: Apache Haus Downloads
Thirdly, I always remove PWS and use my own Apache, so I welcome removing PWS from the IRIS distribution

DELETE %NOCHECK FROM nodes

Have you looked at the type of fields in the metadata?
For me, the INTEGER type (4) is returned for ID, and the BIGINT type (-5) is returned for %ID.

Try

SELECT id, x, y, z FROM some_table order by %id

and

d rs.%GetMetadata().%Display()

What are the default values for AdaptiveMode, AllowRowIDUpdate, IdKey^CPF, PKEY_IS_IDKEY ?

Try disabling AdaptiveMode.

Here are two ways:

s s="12162,CHAPTER I,Certain infectious and parasitic diseases (A00-B99),003 (A20-A28),Certain zoonotic bacterial diseases,A28,""Other zoonotic bacterial diseases, not elsewhere classified"",A28,""Other zoonotic bacterial diseases, not elsewhere classified"",N,N,N,N,N,,,,,,,,,,G"
d ##class(%DeepSee.TermList).%ParseCSVRecord(s,.arr1)
zw arr1

w !

s list=$$CSVtoList^%occLibrary(s)

d ##class(%ListOfDataTypes).BuildValueArray(list,.arr2)
zw arr2

Take a look at the class methods %SQL.Util.Procedures

Decoding Base64 PDF File

If there was a built-in function for expanding the list into a table, then the solution would be even shorter.

Class dc.golf.Kata [ Abstract ]
{

Query split(
  s As %VarString,
  delim As %VarString) As %Query(ROWSPEC = "word:%String") [ SqlProc ]
{
}

ClassMethod splitExecute(
  ByRef qHandle As %Binary,
  s As %VarString,
  delim As %VarString) As %Status
{
  d ##class(%ListOfDataTypes).BuildValueArray($lfs(s,delim),.qHandle)
  s qHandle=0
  q $$$OK
}

ClassMethod splitFetch(
  ByRef qHandle As %Binary,
  ByRef Row As %List,
  ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = splitExecute ]
{
  s d=$o(qHandle(qHandle),1,v)
  i d="" { s AtEnd=1 } else { s Row=$lb(v),qHandle=d }
  q $$$OK
}
}

Now you can do a variety of things with the string, for example:

select min(length(word)) "min",length(word) len,word from dc_golf.Kata_split('bitcoin take over the world maybe who knows perhaps',' ')

Result: