The APL Orchard

kimmolinna

5:48 AM

@adam Maybe I have to change kernel.py file for Dyalog/Jupyter so that I can output vl-file with a proper mime.

Adám

@kimmolinna If you can get it to work, please PR our kernel.

kimmolinna

@Adám I will.

kimmolinna

6:12 AM

@Adám ]html is not working at the moment.

AndyS

10:13 AM

@kimmolinna Which version of APL on what platform are you using Kimmo ? In particular are you running on macOS Big Sur ?

kimmolinna

@AndyS I'm running DyalogAPL version 18 on Windows 10. But I just solved the problem. I added a couple lines to kernel.py-file and I'm able to use :vega-lite tag and after that I can add directly vega-lite json to JupyterLab notebook and I will get an embedded graphics nicely to notebook page.

AndyS

@kimmolinna Excellent ! Was worried that you had hit the change on macOS Big Sur where we've had to disable the HTMLRenderer by default - instructions on reenabling can be found in $DYALOG/mapl

kimmolinna

And I don't use renderer at all.
vlmatch = re.match('^\\s*:vega-lite',lines[0].lower())
...
elif vlmatch:
self.out_vl(lines[1:])
lines = []
...
def out_vl(self, s):
_content = {
'data': {
'application/vnd.vegalite.v4+json': eval(" ".join(s))
},
'metadata':{},
'transient':{}
}
self.send_response(self.iopub_socket, 'display_data', _content)

The biggest problem was to realize that I have to evaluate string to get dict. ;)

hyper-neutrino

1:49 PM

May I use this for APLcart? (This entails relinquishing all rights to the code.) — Adám 7 hours ago

@Bubbler, since you came up with this code and got the train solution before I did, just wanted to make sure you're okay with it too ^

Bubbler

2:49 PM

@hyper-neutrino Totally no problem :)

hyper-neutrino

cool :)

Adám

Got it.

hyper-neutrino

how do I prevent zeroes from disappearing? ⎕←0 0 0 0 1 2 3 0 0 0 0

TryAPL

@hyper-neutrino 0 0 0 0 1 2 3 0 0 0 0

hyper-neutrino

huh. it works here but not when i try it in tryAPL

⋄ 0 0 0 0 1 2 3 0 0 0 0

TryAPL

3:01 PM

@hyper-neutrino 0 0 0 0 1 2 3 0 0 0 0

hyper-neutrino

ok then ¯\_(ツ)_/¯ when I type 0 0 0 0 1 2 3 0 0 0 0 into tryapl.org I get 0 1 2 3 0 0 0 0

Razetime

@hyper-neutrino screenshot?

hyper-neutrino

...can't reproduce it anymore after a reload

i am so confused

Razetime

you may have scrolled a bit to the right

hyper-neutrino

i am stupid

you are correct

i didn't realize cuz the code was aligned to the left of the window, lol

lol

yeah that was really dumb :p

Razetime

3:03 PM

@hyper-neutrino takes one to know one :)

xpqz

:)

Adám

Would it be a good idea to scroll the window to the far left whenever we print a result?

RGS

@Adám I'll do that.

Adám

@hyper-neutrino I see now how you can easily end up in that situation. I'll fix this.

RGS

@Adám Doesn't that make it look like the bot is officially a part of tryapl?

Adám

3:12 PM

@RGS Can't it be?

RGS

@Adám Didn't say it couldn't, but I didn't write it with the explicit intent of making it official in any sense

Adám

It is something we've talked about internally at Dyalog for a long time.

twitter.com/tryapl is suspended. Not sure if that means you can grab it.

RGS

@Adám the intent to have a bot like that?

tryapl is taken, so I can't use it

tryaplbot?

Adám

@RGS Sure.

@RGS Yes.

hyper-neutrino

Is there a discord server anywhere we'd like a bot for (unless one already exists)?

Adám

3:18 PM

@RGS Maybe try_apl?

hyper-neutrino

I made one in my free time the other day for my friend's private server for fun

RGS

@hyper-neutrino I have a server (unrelated to Dyalog) where an APL bot would be cool

If that's what you mean

try_apl is free

Adám

@hyper-neutrino discord.gg/yHna7nt7zx

Razetime

that place already has BQNbot, which can probably be extended with a command

Adám

Not sure what's best, try_apl or tryaplbot. I'm not much of a twit.

RGS

3:22 PM

I like tryaplbot better

Adám

I think so too, and it makes it clearer that it is a bot.

RGS

Is the logo on the GH repo?

Adám

@RGS You can grab it off the bot's profile, but it is also in the TryAPL repo,

RGS

I looked at the repo and for some reason didn't find that image.

hyper-neutrino

you can use this link to invite the bot to a (discord) server - should work

it just matches any codeblocks starting with ⎕← / ⋄ like the SE bot - I can make it use !apl if wanted

Adám

3:35 PM

It is definitely time for apl.wiki/TryAPL

CMC: Implement monadic × without using any primitives.

RGS

@hyper-neutrino !apl would look really cool, but I won't push for it if I'm alone

Razetime

the exact functionality?

no addition or subtraction i suppose

hyper-neutrino

wait how do you do things without primitives - am I misunderstanding what a primitive is

Adám

@Razetime … you only have to handle 16 bit ints.

Razetime

probably something like ⎕DR should be used which can check for signed and unsigned

Adám

3:41 PM

@hyper-neutrino Tricky, eh?

@Razetime No no, no system functions either.

Razetime

oh well

Adám

Full disclosure, at the time of posting, I didn't have a solution yet.

Now I do. My best so far is 20 bytes.

@hyper-neutrino For this problem, primitives are all built-in functions and operators:

+-×÷⌈⌊*⍟|!○~∨∧⍱⍲<≤=≥>≠.@≡≢⍴,⍪⍳↑↓?⍒⍋⍉⌽⊖∊⊥⊤⍎⍕⌹⊂⊃∪∩⍷⌷∘/⌿\⍀¨⍣⍨⌶⊆⍥⊣⊢⍠⍤⌸⌺

plus all system functions (those that begin with ⎕).

hyper-neutrino

huh. okay

i've only ever used primitives so... this'll be interesting :P

Adám

Oh, you also only have to handle a scalar argument.

What you have left to work with are literals and all symbols for syntax.

RGS

CMP: wouldn't it make sense if the (twitter) bot did not reply with an image when results are a single line and fit within the tweet?

Adám

3:56 PM

How are multiple consecutive spaces handled in a tweet?

Point of consideration: The image contains a properly rendered edition of the stated APL expression.

RGS

they are preserved

@Adám Meaning...? The image has the nice font and all?

Adám

Yes.

RGS

True...

rak1507

6:49 PM

@Adám so not floats?

Adám

@rak1507 No, only integers from -2*15 until ¯1+2*15

rak1507

interesting

my original thought was trying to cause different errors and use :: but I'm not sure how that could be possible without using primitives

Adám

Hint: I am relying on errors, but without primitives.

rak1507

{0::¯1⋄0 1...1[⍵]} with lots of 1s

does bracket indexing count as a primitive?

Adám

I didn't list it above, so I guess it's allowed, only you'd certainly not win the code golf with that huge solution.

For reference, my 20-byter uses no parens or square brackets, and the only braces are for the entire function; no inner nested dfns.

rak1507

6:55 PM

ok, I give up

hyper-neutrino

oh so you don't need to handle complex nums?

... that makes significantly more sense

so it's just a sign function

Adám

Yes.

hyper-neutrino

lol. alright. that seems a lot less impossible then :D

Adám

I doubt it can be done for floats and complex.

hyper-neutrino

the problem is i don't even know how to code in APL without primitives :P i barely know how to use the primitives themselves even

rak1507

7:00 PM

I was hoping negative indexing would give a domain error and positive indexing would give an index error, but they're both index errors

hyper-neutrino

i also don't actually know how to do error guards

rak1507

error code::thing returned in case of error

hyper-neutrino

ah, okay

rak1507

0 is any error

hyper-neutrino

8:58 PM

In order to vizualize the order of train evaluation and arity, I tried using {0::⎕←'monadic' ⋄ ⍺←÷0 ⋄ ⎕←'dyadic'} repeated a bunch (with modifications to each to indicate which function was being called) to print out each one. Is there a better way to do this than raising an intentional error and using an error guard to catch it?

(this worked, but I'm wondering if there's a better / shorter way)

rak1507

@hyper-neutrino I just use the tree or box display options

hyper-neutrino

no clue how to use those / what those are :p

rak1507

argh

RGS

@hyper-neutrino ]box on -trains=tree

rak1507

^ or ]box on -trains=box

RGS

9:03 PM

I personally use -trains=box, but it really is a matter of personal preference

@rak1507 why of course, the classical train example

rak1507

lmao

I just wanted something fairly large so spammed some symbols

hyper-neutrino

ah - thanks

RGS

with -trains=tree
      ⍋⍒⊖⍟⍱⍒⍋⍉⍒⍱⌽⍉⍒⊖⍋
┌─┼───┐
⍋ ⍒ ┌─┼───┐
    ⊖ ⍟ ┌─┼───┐
        ⍱ ⍒ ┌─┼───┐
            ⍋ ⍉ ┌─┼───┐
                ⍒ ⍱ ┌─┼───┐
                    ⌽ ⍉ ┌─┼─┐
                        ⍒ ⊖ ⍋

hyper-neutrino

is there a way to do this on TIO :p

RGS

Except the vertical lines are connected.

hyper-neutrino

9:05 PM

also this doesn't work on tryapl either - i should probably download apl at some point lol

rak1507

oh right

damn

RGS

tio.run/##SyzI0U2pTMzJT///…