« first day (783 days earlier)      last day (1864 days later) » 

Ven
Ven
8:42 AM
⎕←(-∘1)({⍵+1}⍣{~∨/(0=3|⍵),'3'=⍕⍵}(+∘1))251
 
Dyalog APL
Dyalog APL
@Ven
254
 
Ven
Ven
Perfect. Now to golf that...
⎕←-∘1⊣{⍵+1}⍣{~∨/(0=3|⍵),'3'=⍕⍵}(+∘1)251
 
Dyalog APL
Dyalog APL
@Ven
254
 
Ven
Ven
⎕←(-∘1(g⍣{~∨/(0=3|⍵),'3'=⍕⍵}(g←+∘1)))251
 
Dyalog APL
Dyalog APL
@Ven
254
 
Ven
Ven
8:56 AM
https://codegolf.stackexchange.com/a/181792/8328
Maybe Extended should provide shorter versions of `-∘1`/`+∘1` :P.
 
Adám
Adám
@Ven It has ⍢(+∘1)
 
Ven
Ven
I don't understand
 
Adám
Adám
@Ven 1+⍣{~∨/(0=3|⍵),'3'=⍕⍵}⍢(+∘1)
 
Ven
Ven
This doesn't seem to work on TIO
Doesn't like the 1+ part
 
Adám
Adám
Ah, should be 0+ of course: Try it online!
 
Ven
Ven
9:06 AM
 
Adám
Adám
@Ven Because you're giving it a left argument and no right argument. Use 1∘+⍣{~∨/(0=3|⍵),'3'=⍕⍵}⍢(+∘1) or 1+⍣{~∨/(0=3|⍵),'3'=⍕⍵}⍢(+∘1)⊢
 
Ven
Ven
And I can change that 0= to = like you said yesterday.
 
Adám
Adám
@Ven Yes, but also, why are you using ∨/a,b instead of just a∨b?
 
Ven
Ven
@Adám well, '3'=⍕⍵ will give more than a single one
 
Adám
Adám
@Ven 3∊⍕
 
Ven
Ven
9:14 AM
That doesn't seem to work.
nvm needs to be '3'
 
Adám
Adám
 
Ven
Ven
And here I thought I didn't do such a bad job ;-).
 
Adám
Adám
@Ven OK, this one is shorte, way cooler, and uses Extended's facilities more: 0+⍣(3(×⍤|>∊⍥⍕)⊢)⍢(1+⊢)⊢
 
Ven
Ven
Saves a byte too \o/
Why trade the jot for a tack?
 
Adám
Adám
@Ven Just style. Fun fact, if you write it as 1∘+⍣(3(×⍤|>∊⍥⍕)⊢)⍢(1∘+) then it isn't even a train just a derived function.
 
Ven
Ven
9:21 AM
wishes for a TryAplExtended to pick peices apart
Give me a bit of time (Honestly I don't even get how 0+⍣... works)
 
Adám
Adám
@Ven That doesn't occur though. It says 0+⍣cond⍢(1∘+)
 
Ven
Ven
Hah :).
 
Adám
Adám
@Ven Got it?
 
Ven
Ven
Precedence is not yet all that obvious to me.
 
Ven
Ven
9:36 AM
Now I'm sure I understand ⍢ here. I know what ⍢'s ⍺⍺ ⍵⍵ ⍵ are, but 0+ is most definitely not a constant, so not its ⍺
HAH! I It's actually 0((+⍣(3(×⍤|>∊⍥⍕)⊢))⍢(1+⊢))⊢. I had been trying to put parentheses around and grasp the parsing for several minutes.
OK, I got it. (1+⊢) is also applied to 0 in DelDiaeresis: (⍵⍵ ⍺)
 
Adám
Adám
@Ven Yes, Under applies ⍺⍺ while the arguments are under the influence of ⍵⍵, then undoes the influence.
 
Ven
Ven
I understood the influence part, but didn't realize it applied on both sides.
 
Adám
Adám
@Ven Well, if you don't want it to apply to both sides, you just use ∘
 
Ven
Ven
and so that (1+⊢)0 is also the ⍺ to ⍣'s ⍺⍺, +.
 
Adám
Adám
9:57 AM
@Ven I'd rather say that ⍢ modifies the 0 before ⍣ even gets a chance to see it or apply + to it.
 
Ven
Ven
Well, sure -- I just didn't know ⍣'s ⍺⍺ would use ⍣'s ⍺
Is there a shorter form for (⊂⊣)⌷⊢?
 
Adám
Adám
@Ven Depends. Often you can use ⊃¨∘⊂ or ⌷¨∘⊂. In Extended, you have ⊇
@Ven Also ⌷⍨∘⊂ if swapped args are ok, or ⌷⍨∘⊂⍨ if not.
 
Ven
Ven
10:17 AM
0
A: Count without 3

VenAPL (Dyalog Unicode), 33 28 bytesSBCS -∘1(g⍣((×3|⊢)>'3'∊⍕)(g←+∘1)) Try it online! -5 thanks to @Adám. Explanation: -∘1(g⍣((×3|⊢)>'3'∊⍕)(g←+∘1)) +∘1 ⍝ curry + with 1, gives the increment function ⍝ increments the left argument so we don...

Here, wrote an explanatiion. I'm not 100% sure about the > though...
 
Adám
Adám
@Ven Nope. > means "and not"
 
Ven
Ven
How?
oh, ok. edited.
I had it the opposite way in my first one
 
Adám
Adám
@Ven 1-⍨g⍣((×3|⊢)>'3'∊⍕)∘(g←+∘1)
 
Ven
Ven
Updated+explanation, thanks.
 
Adám
Adám
@Ven Will you post the Extended too?
 
Ven
Ven
10:28 AM
I don't think I did much of that, but sure. Will write explanation in a bit.
 
Adám
Adám
@Ven It is really exactly the same.
 
 
2 hours later…
Ven
Ven
12:33 PM
OK, wrote a (length) explanation to the Explained one.
 
Adám
Adám
@Ven On its left is 3 not "3"
@Ven stringifies the output arguments before applying ∊
@Ven Otherwise, looks great. Another bounty awaiting you (when I have the time to tend to it)
 
ngn
ngn
@Ven that seems unnecessarily complicated. in ⍣'s right operand the next number is available as ⍺ - you could use that instead of the additional +∘1
without much golfing effort: {1+⍣{(~'3'∊⍕⍺)∧×3|⍺}⍵}
 
ngn
ngn
12:55 PM
this is the shortest i got so far: 1∘+⍣{('3'∊⍕⍺)<×3|⍺}
 
Ven
Ven
1:05 PM
@ngn Oh, so it is? The lb documentation for it is kinda short.
 
ngn
ngn
 
Ven
Ven
That's how the fixpoint example works...
So, 3(×⍤|>∊⍥⍕)⊣ in extended
@ngn Do you want to post it, or should I?
as well as 1∘+⍣(3(×⍤|>∊⍥⍕)⊣) in Extended
 
ngn
ngn
@Ven go ahead
i'm not very familiar with extended
 
Ven
Ven
Ok, thanks.
I'll rewrite the explanations later.
 
ngn
ngn
1:24 PM
shorter: 1∘+⍣{×3|⍺×~3∊⍎¨⍕⍺}
 
 
2 hours later…
Ven
Ven
3:00 PM
I'm not sure I get the ⍎¨⍕ trick
 
dzaima
dzaima
@Ven "evaluate each char of the string representation of the number". A fancy way to decode a number to its base 10 digits
 
Ven
Ven
3:15 PM
Ah, right, not too bd.
 
Sherlock9
Sherlock9
3:52 PM
The following is a little weird 
⎕←1∘+⍣{×3|⍺×~3∊⍎¨⍕⍺}¨⍳20
 
Dyalog APL
Dyalog APL
@Sherlock9
2 4 4 5 7 7 8 10 10 11 14 14 14 16 16 17 19 19 20 22
 
Sherlock9
Sherlock9
Oh no I misread the challenge
Definitely a strange sequence though
 
 
4 hours later…
Joe
Joe
7:49 PM
@RichardPark Sure. When I run /Applications/Dyalog-16.0.app/Contents/Resources/Dyalog/mapl or dyalog in that same directory using the -server switch, I'd like to be able to know what port it is using on localhost so that I can make a connection to it to send APL to it from a non-APL process
 
ngn
ngn
@Ven i could have used '3'∊⍕⍺ instead of 3∊⍎¨⍕⍺. i was trying many different things and the latter happened to be there when i discovered this solution
 
Ven
Ven
Ah, fair enough
 
RosLuP
RosLuP
8:19 PM
⎕←{(×3|⍺)×~'3'∊⍕⍺}¨⍳200
 
Dyalog APL
Dyalog APL
@RosLuP
VALUE ERROR
 
RosLuP
RosLuP
⎕←{(×3|⍵)×~'3'∊⍕⍵}¨⍳200
 
Dyalog APL
Dyalog APL
@RosLuP
1 1 0 1 1 0 1 1 0 1 1 0 0 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 0 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 0 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 0 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 0 1 0 1 1 0 1 1
 
Ven
Ven
why ×?
 
RosLuP
RosLuP
x is and
 
Ven
Ven
8:24 PM
"and not" is > :P
 
RosLuP
RosLuP
⎕←1∘+⍣{(×3|⍺)×~3∊⍎¨⍕⍺}¨⍳20
 
Dyalog APL
Dyalog APL
@RosLuP
2 4 4 5 7 7 8 10 10 11 14 14 14 16 16 17 19 19 20 22
 
RosLuP
RosLuP
⎕←1∘+⍣{(×3|⍺)×~'3'∊⍕⍺}¨⍳20
 
Dyalog APL
Dyalog APL
@RosLuP
2 4 4 5 7 7 8 10 10 11 14 14 14 16 16 17 19 19 20 22
 
RosLuP
RosLuP
⎕←0∘+⍣{(×3|⍺)×~'3'∊⍕⍺}¨⍳20
 
Dyalog APL
Dyalog APL
8:36 PM
@RosLuP

Rebuilding user command cache... done

Real time: 60.003 s
User time: 0.007 s
Sys. time: 0.008 s
CPU share: 0.02 %
Exit code: 124
 
RosLuP
RosLuP
⎕←0 1 2 3
 
Dyalog APL
Dyalog APL
@RosLuP
0 1 2 3
 

« first day (783 days earlier)      last day (1864 days later) »