The APL Orchard

« first day (780 days earlier) ← previous day next day → last day (1877 days later) »

2:45 PM

@dzaima so far, I tried to make a pure APL\360 solution to your challenge, so I came up with this:

n∘.∧n←(,(n⍴0),⍪⍳n←⎕)\1

unfortunately, um, \ doesn't work that way :P

dzaima

3:00 PM

@EriktheOutgolfer though i don't have an APL\360 interpreter, i'm pretty sure I've got a 22 byte solution that doesn't use \

Erik the Outgolfer

I have a shorter one that uses ¨

dzaima

@EriktheOutgolfer is that in APL\360?

Erik the Outgolfer

no, APL\360 doesn't even have ¨, it's the very definition of pure APL :D

it also doesn't have ⍨, for instance

dzaima

@EriktheOutgolfer my modern APL solutions don't use ¨

Erik the Outgolfer

3:15 PM

@dzaima it's useful for code-golf, at least

dzaima

@EriktheOutgolfer I'm just saying that my solutions without ¨ ended up shorter than with it

umm now that i say that i remembered a shorter Dyalog one that did use ¨ :|

dzaima

3:35 PM

@dzaima never mind got a shorter non-¨ one

1 hour later…

Sherlock9

4:58 PM

⎕←{'#'⍴⍨¨⍳2⍴⍵}3

Dyalog APL

@Sherlock9
┌─┬──┬───┐
│#│##│###│
├─┼──┼───┤
│#│##│###│
│#│##│###│
├─┼──┼───┤
│#│##│###│
│#│##│###│
│#│##│###│
└─┴──┴───┘

Sherlock9

Okay so I get the box output here and not in TIO

Also, this is for this challenge: codegolf.stackexchange.com/questions/181582/…

dzaima

@DyalogAPL oh by some reason i thought that was invalid output but it actually is allowed by my rules :|

@Sherlock9 tio.run/##SyzI0U2pTMzJT///P@1R24RqdWX1R71bHvWuOLTiUe9mIzB7a@3//…

I've got a 12 byte "proper" array answer in Dyalog and 9 in dzaima/APL

@dzaima oh right that was about having numbers in the cells instead of proper chars

Sherlock9

5:14 PM

@dzaima Thanks! Will put it in an answer shortly

Posted!

Erik the Outgolfer

5:34 PM

@Sherlock9 unfortunately, I don't think that's valid

except if the separator doesn't really have to be constant

dzaima

@EriktheOutgolfer with ]box on it is

Erik the Outgolfer

I think it must be included in the bytecount then

dzaima

@EriktheOutgolfer that's an explicit rule

Erik the Outgolfer

yeah, wasn't 100% sure on the "every other character (though newlines are special) is considered whitespace" part

still, I don't think ]box on can be a default

voidhawk

⎕←(∘.('#'⍴⍨,)⍨⍳)3

Dyalog APL

5:41 PM

@voidhawk
┌─┬──┬───┐
│#│##│###│
├─┼──┼───┤
│#│##│###│
│#│##│###│
├─┼──┼───┤
│#│##│###│
│#│##│###│
│#│##│###│
└─┴──┴───┘

voidhawk

Also 12 bytes, could save 1 if I could get ⍀ in Extended to work

Erik the Outgolfer

Extended is a different language...

Sherlock9

Hm, not sure how to fix this

There's a way to print this out properly, I'm sure of it

Erik the Outgolfer

5:56 PM

pretty sure you can just assume a REPL and post this:

]box on
'#'⍴⍨¨⍳2⍴⎕

Dyalog APL

@EriktheOutgolfer
DOMAIN ERROR

Erik the Outgolfer

well shut up

Sherlock9

No dice

dzaima

@Sherlock9 "assume a REPL"

Sherlock9

Ohhh

dzaima

6:00 PM

salt is usually loaded in a REPL

Sherlock9

Well that's going to be hell on the byte count

Erik the Outgolfer

btw, it's 18 bytes, not 21 ;)

Sherlock9

How would one interleave 1 2 3 4 with zeros to make 1 0 2 0 3 0 4?

dzaima

@Sherlock9 ∊{⍺0⍵}/⍳4 or 1↓∊0,¨⍳4

Erik the Outgolfer

ninja

Sherlock9

6:14 PM

Alright how would one interleave blank rows in between ⍳4 4 for example

I'm not sure how to do it just between rows

Erik the Outgolfer

I'd say keep it 1D for the entire process but the very last step

Sherlock9

⎕←2↓∊0,¨0,¨⍳3 3

Dyalog APL

@Sherlock9
1 1 0 0 1 2 0 0 1 3 0 0 2 1 0 0 2 2 0 0 2 3 0 0 3 1 0 0 3 2 0 0 3 3

Sherlock9

So something like this and then take every two and turn it into a thing?

Or could just interleave ⍬s

No that doesn't work either

ngn

here's another idea: 2↓∊,\0,4⍴1 and build a multiplication table from that

⎕←∘.×⍨2↓∊,\0,3⍴1

Dyalog APL

6:26 PM

@ngn
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1

dzaima

@ngn oh that's an interesting way to generate that

so that's another 12 byte plain Dyalog answer

ngn

@dzaima 14 byte

dzaima

@ngn i have a 12 dfn :)

Erik the Outgolfer

you... just challenged ngn...

ngn

dzaima

6:32 PM

@EriktheOutgolfer well i did mention (a different) 12-byter before

and the golf is stupid either way actually - just removing the 2↓

ngn

there's a 10-byte answer already

dzaima

oh wait i did change the algorithm :|

Erik the Outgolfer

@ngn actually, it's still unedited, but it's 18 bytes

dzaima

@ngn it's been under discussion about ]box on though

ngn

ah... ok then, challenge accepted

Sherlock9

6:35 PM

I was about to edit the 14-byte version into that answer, actually

Erik the Outgolfer

@ngn tbf, the -2 golf is actually a modified output format

Sherlock9

But I was going to wait for your golf war to settle ;D

Erik the Outgolfer

@Sherlock9 you can always edit the 18-byter in while you're waiting if you want to :P

dzaima

@EriktheOutgolfer i realized that's not enough to get 12 though

Erik the Outgolfer

better than having an invalid answer up ;-)

Sherlock9

6:36 PM

@EriktheOutgolfer I thought dzaima's 12-byter with the 2↓ was lovely

dzaima

@Sherlock9 what my 12-byter?

Sherlock9

@dzaima I was going to edit it into my answer

If you're okay with that

(also what 18-byter?)

dzaima

@Sherlock9 i've posted no 12-byters though

(also both my 12-byters abuse the fact that the input can be off by 1)

Sherlock9

I just meant ∘.×⍨∊,\0,⎕⍴1

The one you implied earlier

dzaima

@Sherlock9 ah, I've got a REPL&⎕ 12-byters

@Sherlock9 that's not what I implied :D

so i have a 10-byte REPL answer :D

Sherlock9

6:40 PM

@dzaima I meant your implication here

Ah heck

Ahhhh

okay how?

dzaima

@Sherlock9 i'm not just gonna give it away (ok maybe after a while if noone figures it out)

Sherlock9

Alright, will get back to your riddle after fixing my invalid answer

Sherlock9

7:11 PM

I'm still stumped but it's also 2 am, so I'm going to bed

Thanks for all the help, guys

dzaima

@dzaima ಠ_ಠ "REPL&⎕-free" is what i meant

ngn

@dzaima so you don't have a 10-byte?

dzaima

@ngn I have a REPL 10-byter, and 2 REPL&⎕-free 12-byters

ngn

@dzaima ok, i give up, it's taking me too long to guess it

dzaima

@ngn do you have a 12 byte train answer?

ngn

7:26 PM

@dzaima no, not even 12

dzaima

(i should probably mention that the 10-byter is a dfnication of one 12-byter)

not posting that currently though, here's the other 12-byter

since i'm the challenge author i'll wait a bit before self-answering

ngn

⎕←{∘.×⍨2↓∊,\×⍳⍵}4 ⊣⎕io←0

Dyalog APL

@ngn
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1
1 0 1 1 0 1 1 1

ngn

that should be 12 with a ⎕ instead of ⍵

dzaima

@ngn aand

ngn

7:30 PM

@dzaima well, nothing. i just found it after you asked

dzaima

57 mins ago, by dzaima

and the golf is stupid either way actually - just removing the 2↓

ngn

@dzaima i see - flexible output

dzaima

after that, it's my 10-byter, so congrats! (didn't think that'd ever be said this way around :p)

ngn

i was expecting something more unexpected :)

dzaima

playing around with ∘.f⍨ is what inspired the challenge. ×⍳ was from {∘.∧⍨∊×⍳¨⍳1+⍵} - a previous thought of mine, and ,\ was your idea

2 hours later…

Joe

9:45 PM

hello, how would i find out what port the macos version of dyalog is running on when in server mode?

« first day (780 days earlier) ← previous day next day → last day (1877 days later) »

all rooms

Transcript for

Mar15

Mar '1916

Mar17

apl.chat ― Learn, teach, ask, code, golf, & discuss usage. See ...

apl array-manipulation j tips

join this room
about this room

00:00

06:00

12:00

18:00

all times are UTC