Discussion

Eduard Lebedyuk · Nov 9, 2022

#Code Golf #Code Snippet #InterSystems IRIS

We're back with a code golf!

You will receive a string. Each word in the string will contain a number.
This number is the position that word should have in the sentence.
If the input string is empty, return an empty string.
The output can only be in words, without the given numbers.

Input

"i2s T1his Te4st a3"

Output

This is a Test

Note

Use this code to check the solution length
You also can use this test case here

Rules

The signature of the contest entry MUST be:

Class codeGolf.OrderOfWords
{

ClassMethod Order(a As %String) As %String
{
}

}

It is forbidden to modify class/signature, including but not limited to:

Adding inheritance
Setting default argument values
Adding class elements (Parameters, Methods, Includes, etc).

It is forbidden to refer to non-system code from your entry. For example, this is not a valid entry:

ClassMethod Order(a As %String) As %String
{
  q ##class(myPackage.myClass).test(a)
}

The use of $ZWPACK and $ZWBPACK is also discouraged.

/// You can change the s:b]"" to an comma if there is always exact one space between the words /// and remove the ,1) from $lts() if all word are numbered from 1..N with no number missing ClassMethod WordOrder(s) { s z="" f i=1:1:$l(s," ") s b=$p(s," ",i) s:b]"" $li(z,$zstrip(b,"*ap"))=$zstrip(b,"*n") q $lts(z," ",1) }

f s p=$p(s," ",$i(i)),w=$tr(p,1/17),$p(z," ",$tr(p,w))=w ret:p=w $g(z) f{s p=$p(s," ",$i(i)),w=$tr(p,1/17),$p(z," ",$tr(p,w))=w ret:p=w $g(z)} 1 s p=$p(s," ",$i(i)),w=$tr(p,1/17),$p(z," ",$tr(p,w))=w q:p=w $g(z) g 1

Julius Kavay · Nov 9, 2022

One of the possible solutions

This is a working solution and maybe not the shortest

1 0

and this is an updated version

ClassMethod Order(s as %String) As %String
{
	s d=" ",z="" f i=1:1:$l(s,d) s b=$p(s,d,i),c=$zstrip(b,"*n"),$p(z,d,$tr(b,c))=c
	q z
}

2 0

Eduard Lebedyuk · Nov 10, 2022

I thought about a local but I like your $li/$p approach.

0 0

Julius Kavay · Nov 10, 2022

Putting all in one line saves one byte

ClassMethod Order(s As %String) As %String
{
	s d=" ",z="" f i=1:1:$l(s,d){s b=$p(s,d,i),c=$zstrip(b,"*n"),$p(z,d,$tr(b,c))=c} q z
}

Changing $zstrip() to a $tr() saves one more byte

ClassMethod Order(s As %String) As %String
{
	s d=" ",z="" f i=1:1:$l(s,d){s b=$p(s,d,i),c=$tr(b,1E20/17),$p(z,d,$tr(b,c))=c} q z
}

So I end up with 86 bytes

Vitaliy Serdtsev · Nov 11, 2022

size = 79

ClassMethod Order(a As %String) As %String
{
 s r=a f i=1:1:5e5{s s=$p(a," ",i),w=$tr(s,1e20/17),$p(r," ",$tr(s,w))=w} q r
}

Stuart Strickland · Nov 11, 2022

Nice generation of a pandigital number with 1e20/17.

Can save a character with $zpi_0

ClassMethod Order(a As %String) As %String
{
s r=a f i=1:1:5e5{s s=$p(a," ",i),w=$tr(s,$zpi_0),$p(r," ",$tr(s,w))=w} q r
}

This was mine also at 78:

ClassMethod Order(a As %String) As %String
{
f i=1:1 s s=$p(a," ",i),n=$zstrip(s,"*a"),$p(z," ",n)=$tr(s,n) ret:'n $g(z)
}

Make that 77 with this:

ClassMethod Order(a As %String) As %String
{
f{s s=$p(a," ",$i(i)),n=$zstrip(s,"*a"),$p(z," ",n)=$tr(s,n) ret:'n $g(z)}
}

Shaved off another character

ClassMethod Order(a As %String) As %String
{
1 s s=$p(a," ",$i(i)),n=$zstrip(s,"*a"),$p(z," ",n)=$tr(s,n) G 1:n Q $g(z)
}

Julius Kavay · Nov 11, 2022

A small complaint:
- possible word delimiters weren't specified (space, tab, etc.)
- no specification about punctuation marks (allowed or disallowed)
- no specification about empty words (allowed or disallowed) and how to handle them, if allowed

So my question is, are the following examples legal or not:

"O2K. I'1m" --> "I'm OK."
"spac4es are2 1There ma3ny" --> "There are many spaces."

I had the same thoughts but decided to make assumptions that allowed me to code using the least characters. If you cater for the tricky stuff you'd probably have to double the length of your code.

Eduard Lebedyuk · Nov 12, 2022

possible word delimiters weren't specified (space, tab, etc.)

Single whitespace

no specification about punctuation marks (allowed or disallowed)

No punctuation

no specification about empty words (allowed or disallowed) and how to handle them, if allowed

No empty words in input.

Not a valid input for this golf.

Julius Kavay · Nov 12, 2022

You say "No punctuation". OK, but then we have a contradiction: Example 4 of the test cases contains several commas, a dot and a question mark...

OK, no punctuation, no empty words, etc.... My lowest bid: 74 chars

ClassMethod Order(s)
{
	f  s p=$p(s," ",$i(i)),w=$tr(p,1/17),$p(z," ",$tr(p,w))=w ret:p=w $g(z)
}

By the way, the following three variants all have the same size of 74

Code Golf: Word Order

Input

Output

Note

Rules