The Nineteenth Byte

12:00 AM

@RedwolfPrograms Go ahead, it doesn't matter :P

Redwolf Programs

Welcome to the first Monthly Mini Golf! During this event, we'll post 18 CMCs (Chat Mini Challenges) for you all to solve. The first 5 will be posted at the start, and additional ones will be added every 5 to 10 minutes. If you have any questions, don't be afraid to ask. Good luck!

CMC: Given three points in the plane, determine if they are on the same line

CMC: Take an array of numbers. Take the sum, but where every second item is negated.

CMC: Subsequences, going out from the center ('ABCD' -> ['BC', 'ABCD'], 'ABCDE' -> ['C', 'BCD', 'ABCDE'])

lyxal

@RedwolfPrograms vtc as dupe

Redwolf Programs

CMC: Given a string, generate all permutations of all prefixes of the input.

@lyxal Internet lol

CMC: Cartesian square with no cartesian product/power/square built-ins

caird coinheringaahing

@MatthewDaniels Done: 20 messages moved to Indonesian Gambling Spam

Redwolf Programs

Go!

user

12:01 AM

@RedwolfPrograms Scala: _.inits.map(_.permutations)

Matthew Daniels

thx

lyxal

@RedwolfPrograms Vyxal, -s, 3 bytes: ⁽Nẇ

Neil

@cairdcoinheringaahing can't be done for -1<=n<=2; x=abs(n) works for all other integers

user

@RedwolfPrograms Scala: x=>for(a<-x;b<-x)yield a->b

Delfad0r

@RedwolfPrograms Haskell: foldr1(-)

caird coinheringaahing

12:03 AM

@Neil Shame :/

user

@RedwolfPrograms APL, -/ (stolen from Delfad0r's)

lyxal

@RedwolfPrograms Vyxal, 11 bytes: (x|?(←x n",

Redwolf Programs

@RedwolfPrograms JS, 39 bytes: n=>(t=i=0,n.map(x=>t+=x*(++i%2*2-1)),t)

@cairdcoinheringaahing you can post your "output an integer x such that [n+x, n-x, n×x, n÷x, n*x] are all unique integers" one now

caird coinheringaahing

@RedwolfPrograms Neil already "cracked" that one :P

Neil

@RedwolfPrograms Retina 0.8.2, 15 bytes

caird coinheringaahing

12:05 AM

in MMG Drafts, 2 hours ago, by Redwolf Programs

Draft: Given an integer n, output an integer x such that [n+x, n-x, n×x, n÷x, n*x] are all unique integers (* is power)

@RedwolfPrograms Jelly, 4 bytes. Kinda cheaty :P

DLosc

Just found out that nil is not equal to nil in Pip. What is this nonsense :(

hyper-neutrino

@RedwolfPrograms can this be a matrix of pairs or must it be a flat list of size N^2

Redwolf Programs

Either's fine

This is a CMC :p

Delfad0r

@RedwolfPrograms Haskell: f x=(,)<$>x<*>x

caird coinheringaahing

@RedwolfPrograms Jelly, 3bytes

hyper-neutrino

12:08 AM

aight. in that case, yuno with 4 bytes, ドゥマメ、 (ドゥ is encoded as 1 byte BTW)

caird coinheringaahing

@RedwolfPrograms Can it be a 3d list?

Redwolf Programs

Sure

caird coinheringaahing

@RedwolfPrograms Jelly, 2 bytes ,þ

lyxal

@RedwolfPrograms Vyxal, 3 bytes

Redwolf Programs

TIO doesn't have .flat >:|

caird coinheringaahing

12:11 AM

@RedwolfPrograms Jelly, 6 bytes. Outputs a trailing newline

In other news, I'm an idiot

@RedwolfPrograms Jelly, 4 bytes

A username

@RedwolfPrograms Js: x=>[...Array(s=(x.length+1)/2|0).keys()].map(n=>x.slice(s-n-1,s+n+1))

user

@cairdcoinheringaahing You're not an idiot, you're caird coinheringaahing.

Delfad0r

@RedwolfPrograms Haskell: f(x:y@(_:_:_))=f(init y)++[x:y];f e=[e]

DLosc

@RedwolfPrograms Pip, 11 bytes: PMa@<_M\,#a

caird coinheringaahing

@user If that weren't so motivational, I'd kick you :P

Redwolf Programs

12:13 AM

@RedwolfPrograms JS, 65 bytes: d=>[...d].fill(d).flat().map((_,i)=>[d[i%(l=d.length)],d[i/l|0]])

A username

@RedwolfPrograms Next lot now?

Redwolf Programs

CMC: Collapse all identical characters

CMC: Given a multidimensional array, return how many dimensions it has

Wezl

@RedwolfPrograms sed -E, :;s/(.)\1/\1/;t

user

@cairdcoinheringaahing I did partially mean it in a motivational way - you're not an idiot, at least on CGCC

Delfad0r

Haskell: length.fst.span(=='[')
Takes input as a string, since Haskell does not support nested lists

hyper-neutrino

12:14 AM

@RedwolfPrograms Jelly, 4 bytes

user

@user You do seem to be an idiot in real life, though, since you're still awake :P

caird coinheringaahing

@user Yeah, that tracks :P

Redwolf Programs

@RedwolfPrograms JS, 31 bytes: s=>s.replace(/(.)\1*/g,r=>r[0])

caird coinheringaahing

@hyper-neutrino Also 4 bytes

user

@RedwolfPrograms APL: ⍴ :P (Wezl pointed out it's really ≢⍴)

caird coinheringaahing

12:15 AM

@user Fails for Heeeellooooooo, WWWWWoorrlllldd!!!!

Should output Helo, World!

Wezl

@user isn't that match shape not shape?

user

Oh right

@Wezl ? I'm not sure what match shape is

DLosc

@RedwolfPrograms tinylisp, 44 bytes: (d f(q((A)(i(e(type A)(q List))(a(f(h A))1)0

Wezl

@user ≢⍴

user

@Wezl Oh right, I didn't read the CMC too closely :|

Redwolf Programs

12:17 AM

@RedwolfPrograms JS, 21: f=d=>d[0]?f(d[0])+1:0

lyxal

@RedwolfPrograms vyxal, 3 bytes

hyper-neutrino

@RedwolfPrograms would ŒḊ be valid? jelly

Redwolf Programs

@user You can post the S combinator one whenever you're ready

A username

Redwolf is outgolfing me :p

Redwolf Programs

@hyper-neutrino probably would

hyper-neutrino

12:17 AM

pog

user

in MMG Drafts, 40 mins ago, by Redwolf Programs

Draft: Shortest S combinator: Given a binary function x, a unary function y, and a value z, output x(z)(y(z)), or x(z, y(z))

Redwolf Programs

The clockwise vs. anti-clockwise one is good to post now too

A username

@user Js (x,y,z)=>x(z)(y(z))

Redwolf Programs

Ninja'd :p

user

@user Scala: y=>z=>_(z)(y(z)), only marginally less trivial than JS

Redwolf Programs

12:19 AM

@ngn ^^^^

A username

@user Where does _ come from

Wezl

@user s, unlambda, one byte

user

@Ausername It basically turns the function into y=>z=>x=>x(z)(y(z))

ngn

@RedwolfPrograms should i post it?

hyper-neutrino

wouldn't x(z,y(z)) be shorter

user

12:20 AM

@Wezl Very funny.

Redwolf Programs

@ngn Sure, go ahead

hyper-neutrino

or is that not allowed if your language supports currying

A username

@user Oh so language quirk

user

@hyper-neutrino It's not in the spirit of SKI

hyper-neutrino

fair enough

user

12:21 AM

@Ausername Well, feature, but yeah

DLosc

@user tinylisp, 18 bytes: (q((x y z)(x z(y z

user

@hyper-neutrino I mean, you can do it if you want, I just preferred it with currying

ngn

53 mins ago, by ngn

Draft: given three points in the plane (not all on the same line) determine if they describe a circle in a clockwise or anticlockwise direction using any two distinct return values

caird coinheringaahing

@user Jelly, 2 bytes

hyper-neutrino

ninja'd >:-(

Redwolf Programs

12:21 AM

That's going to be a tough one

hyper-neutrino

i got the 2,1 for dyad and monad confused, lol

Wezl

@user {x[z;y z]} in K

ngn

@Wezl {x[z]y z} (assuming x is dyadic)

Wezl

interesting, did not know...

caird coinheringaahing

Fun fact: you can find out what deleted messages said if you have their reply id (which you can get if someone has replied to the message) by going to https://chat.stackexchange.com/messages/{id}/history

Wezl

12:23 AM

steals for new language

caird coinheringaahing

Resume CMCing :P

ngn

@Wezl passing fewer args than needed causes currying

Redwolf Programs

Circle is x^2+y^2=r^2 right?

caird coinheringaahing

Yes

user

@cairdcoinheringaahing That's...not good

Wezl

12:24 AM

@ngn oh right, knew that, just needed smart

upvotes ngn's smart

2

A username

Just realised I can get gold badge noow, hold on

ngn

@Wezl old trick. not mine.

caird coinheringaahing

@user That's assuming mods haven't purged the history. Otherwise, deleted chats are still supposed to be available, but not easily

Like deleted answers, but a lot harder

hyper-neutrino

wait, you can?

doesn't work when i try in incognito

caird coinheringaahing

Might need 10k+ network wide

hyper-neutrino

12:25 AM

ah

welp. looks like i need to be more aggressive with purging content

@ngn I think _€ZÆm$æA/€ṢƑ works

(jelly)

caird coinheringaahing

Anyone with <10k network wide, try going here to test it (real link)

Delfad0r

Python 2: lambda a,b,c:((b-a)/(c-a)).imag>0
Although I'm not sure if I understood this challenge correctly.
Takes input as complex numbers

A username

WOOHOO FIRST GOLD BADGE!!!

okie

@cairdcoinheringaahing I just saw god of meme

ngn

@hyper-neutrino how does it work?

Redwolf Programs

12:27 AM

@ngn The points are all part of the circle's outer edge right?

Wezl

@cairdcoinheringaahing 404

ngn

@RedwolfPrograms yes, they lie on and determine its circumference

caird coinheringaahing

Ok, so it's 10k+

(Sorry for kinda derailing the CMCs)

hyper-neutrino

@ngn the clockwiseness is preserved if you compare them to any point inside the circle, and the average should always be inside the circle, I think. so i take the difference to the average, then arctan each, then check if it's sorted

Redwolf Programs

@Wezl Appending matrices is good to post now

user

12:28 AM

@cairdcoinheringaahing Doesn't work for me, and I have 10k+ network-wide, so I guess it's 10k+ on a specific site?

Wezl

<10k votes userscript is OP

caird coinheringaahing

@user It might even be RO specific then

Redwolf Programs

@hyper-neutrino Oh that's smart

user

@Wezl ?

Wezl

4 hours ago, by Wezl

Draft: Append two matrices [[0,1],[4,5]], [[2,3],[6,7]] => [[0,1,2,3],[4,5,6,7]]

user

12:28 AM

@cairdcoinheringaahing That makes more sense

Redwolf Programs

I'm over here solving super complicated equation things

When I could just be hyper-neutrino

hyper-neutrino

@Wezl ;" I think

user

@Wezl Haskell: zipWith(++) (I think, haven't tested it)

hyper-neutrino

haven't tested or opened tio even

ngn

@hyper-neutrino hm.. i'm not sure that's 100% correct

caird coinheringaahing

12:29 AM

@hyper-neutrino Yep

Delfad0r

@user Ninja'd :)

Wezl

@user :O so you're the one who's ninjing me

@Delfad0r and you too >:/

hyper-neutrino

@Wezl python, lambda x,y:[a+b for a,b in zip(x,y)]

user

@Wezl Mwahaha

lyxal

That moment when you won't be able to CMC for half an hour because road travel

o/ for now

Redwolf Programs

12:30 AM

@Wezl JS, 34: a=>b=>a.map((d,i)=>d.concat(b[i]))

@lyxal o/

Bubbler

@Wezl APL, 1 byte: ,

user

@Bubbler Ninja'd :P

Wezl

@hyper-neutrino is offended

DLosc

@RedwolfPrograms I think this is correct for collinear points in Pip, 14 bytes: {$=Y$AT_-BMPg}

caird coinheringaahing

@RedwolfPrograms Yeah, TNB's been in timeout before

Wezl

12:31 AM

@user tbf I was testing it when you ninja'd me

Redwolf Programs

@cairdcoinheringaahing You're good to post the cartesian to polar now

ngn

@hyper-neutrino what you should really check is the parity of the sorting permutation. but there's a simpler way.

caird coinheringaahing

in MMG Drafts, 3 hours ago, by Redwolf Programs

Draft: Given a Cartesian coordinate point, output its polar form

Delfad0r

@RedwolfPrograms Python 2: lambda a,b,c:((b-a)/(c-a)).imag==0 (actually one more byte than the ccw circle one ^^)

user

@Wezl Racket, maybe something like (<unicode lambda symbol>(a b)(map cons a b)?

Wezl

12:33 AM

@ user (map$append) in unreleased-unfinished haskell-lisp thingy, and ...(map append... in lisps

hyper-neutrino

@Wezl yuno, 2 bytes: ヴェタ (ヴェ is one byte) - language feature postdates challenge

caird coinheringaahing

hmmmmmm :P

ngn

@ngn hint: sgn(det([[x0,x1,x2],[y0,y1,y2],[1,1,1]]))

Bubbler

@hyper-neutrino VTD for loophole violation :P

hyper-neutrino

@ngn wdym by parity?

@Bubbler shhhhhhhhhhhhhhhhhhhhhhhhh

Redwolf Programs

12:34 AM

@cairdcoinheringaahing JS, boring 39 bytes: x=>y=>[Math.hypot(y,x),Math.atan2(y,x)]

ngn

@hyper-neutrino parity of a permutation

Delfad0r

@ngn can you confirm that this is the correct interpretation of the circle challenge?

Wezl

@hyper-neutrino lol that's interesting

hyper-neutrino

does jelly have neither a bultin for pol/rec conversion or hypot

caird coinheringaahing

Don't think so

Redwolf Programs

12:35 AM

Anyone going to be offering bounties on this MMG?

hyper-neutrino

oh right. i'm dumb

Redwolf Programs

I'll offer +100 to first, or second if someone else volunteers for first

caird coinheringaahing

First what?

Wezl

@RedwolfPrograms okay anyone want their question to act as a proxy :P

Redwolf Programs

Although actually determining what counts as first is the tricky part lol

hyper-neutrino

12:37 AM

also yes, i am using this as an opportunity to pick up new language features to implement. yes that is loophole violation more or less :P

Redwolf Programs

Maybe no bounty :p

@user We can do the interleaving one now

Wezl

@RedwolfPrograms transpose|flatten, takes input as an array of lists, Jq (also insert corresponding Jelly 2 byter here)

DLosc

@cairdcoinheringaahing Pip, 12 bytes: PRT$+g*gbATa

caird coinheringaahing

TBH I don't think we need a bounty. If we have this as a regular thing, we can point to it as a place for trivial challenges that would be better off not on main, and we can use these as an activity booster (not that we need it but ¯\_(ツ)_/¯)

Redwolf Programs

Agreed I guess

I'll post for user since I think they said they were getting dinner

4 hours ago, by user

Draft: Interleave n lists (too dupe-y?)

Not sure if it's guaranteed they'll be the same length

caird coinheringaahing

12:39 AM

Although if people want to award bounties for good answers to these, I'm absolutely not opposed to that :P

@RedwolfPrograms Jelly, one byte

Bubbler

@cairdcoinheringaahing J, 9 bytes: |,r.inv@*

Redwolf Programs

JS, 34: l=>l[0].flatMap(i=>l.map(l=>l[i]))

hyper-neutrino

@RedwolfPrograms finally implemented in yuno (so technically loophole violation) as ッパマッペ (which is 3 bytes)

Wezl

@RedwolfPrograms jelly: Z I think (edit: taking a list of lists)

caird coinheringaahing

@Wezl ż

hyper-neutrino

12:40 AM

that only works on two

you'd need ż/ or something like that, no?

caird coinheringaahing

Oh right

Z works if you take input as a list of lists

hyper-neutrino

if it's supposed to interleave a list of lists into a flatlist then ZF but if a list of cols is acceptable then Z is correct

Bubbler

@cairdcoinheringaahing J built-in, 2 bytes: *.

Wezl

@cairdcoinheringaahing shamelessly copied from yourself btw :)

DLosc

@RedwolfPrograms Given list of lists, 3 bytes in Pip: WV_

Redwolf Programs

12:42 AM

This is actually a really good event for someone planning a language :p

caird coinheringaahing

@Wezl ...I forgot about that :P

DLosc

@DLosc Given multiple lists as arguments, 5 bytes: {WVg}

hyper-neutrino

@RedwolfPrograms ジ in yuno (postdates)

ngn

@Delfad0r intuitively, it appears so. with ..-a you translate to one of the vertices of the triangle, with division you subtract the headings of the two sides, and the result's imaginary component tells you which was to the left and which to the right

Redwolf Programs

1 hour ago, by user

Draft: Replace "keyboard" with "leopard" on a webpage or in a string (xkcd)

hyper-neutrino

12:43 AM

@RedwolfPrograms yes, i am shamelessly creating built-ins to solve most of these as we speak :P because i only am using like 10% of my codepage right now

caird coinheringaahing

Hehe, I have -8 notifications on Codidact

DLosc

@RedwolfPrograms I love that xkcd =D

Redwolf Programs

JS, obvious: s=>s.replace(/keyboard/g,"leopard")

hyper-neutrino

@RedwolfPrograms python, lambda x:x.replace("keyboard","leopard") (much creative, very wow)

Redwolf Programs

This one's more of a joke I think, not much golfing potential :p

Wezl

12:44 AM

@cairdcoinheringaahing grins so broadly it overflows, corrupts australia, and proves HQ9+'s turing completeness

DLosc

@RedwolfPrograms Case sensitive, though?

Bubbler

@RedwolfPrograms Dyalog APL, 21: 'keyboard'⎕R'leopard'

Redwolf Programs

I'm going to try doing it in a way that preserves the capitalization :p

Bubbler

Using lookahead to factor out ard happens to take one more byte :P

Wezl

@RedwolfPrograms wow this is just a contest comparing regex boilerplate (which python loses of course)

A username

12:45 AM

@RedwolfPrograms Js: k=>[...Array(Math.max(...k.map(l => l.length))).keys()].map(x=>k.map(m=>m[x]&&t.push(m[x])),t=[])&&t (takes array oof arrays)

Redwolf Programs

@Ausername Why not just l=>l[0].flatMap(i=>l.map(l=>l[i])) :p

Bubbler

@RedwolfPrograms Shouldn't it be flatMap((_,i)=>?

Redwolf Programs

Oh, yes it should

A username

@RedwolfPrograms Lol

Redwolf Programs

That is some pretty good golfing though, even if the approach wasn't the shortest :p

Actually yours works with different sizes arrays unlike mine

Bubbler

12:49 AM

JS array methods are OP, except when it's not

DLosc

@Wezl Well in that case, Retina 16 bytes ;)

Redwolf Programs

f=l=>[...l].sort((a,b)=>b.length-a.length)[0].flatMap((_,i)=>l.map(l=>l[i])).filter(x=>x!=[][0]) works but is probably longer than necessary

hyper-neutrino

lookahead still takes +1 in retina ;-;

Redwolf Programs

It exactly ties with doing it using Array and Math.max lol

A username

@RedwolfPrograms We'll see.

Redwolf Programs

12:53 AM

I think having themes is a really great idea, opinions on caird's suggestion?

hyper-neutrino

~~theme: code-golf~~

caird coinheringaahing

~~theme: answer-chaining~~

Redwolf Programs

@lyxal You're good to post your you're not <x> one now

hyper-neutrino

i think themes would be cool. maybe we can put them as answers under the meta post

Redwolf Programs

Doesn't look like lyxal's here atm

DLosc

12:55 AM

theme: graphical-output :D

Redwolf Programs

2 hours ago, by lyxal

Draft: I'm <x> -> You're not <x>, you're <y>

A username

@RedwolfPrograms k=>[...Array(Math.max(...k.map(l=>l.length)))].map((_,x)=>k.map(m=>m[x]&&t.push(m[x])),t=[])&&t saves a few bytes

Redwolf Programs

Nice!

caird coinheringaahing

25 mins ago, by lyxal

That moment when you won't be able to CMC for half an hour because road travel

DLosc

@RedwolfPrograms Is y a second input?

Redwolf Programs

12:55 AM

Presumably

caird coinheringaahing

Nah, y should be your username

hyper-neutrino

is input exactly I'm <x> or do we need to find it and if so how far should we match

vtc as unclear xd

@cairdcoinheringaahing must suck for you :P (or maybe not, if you use jelly's compression of your name lmao)

caird coinheringaahing

I'll take over as lyxal (69 funny number, rickroll haha frick): Given a string in the form I'm <x> output You're not <x>, you're <y>, where y is your username. x will contain any ASCII charactrs

I do a great lyxal impression, no? :P

Redwolf Programs

JS, 49: t=>y=>`You're not${t.match(/ .+/)[0]}, you're `+y

hyper-neutrino

ṫ5“You're not “, you're ”j“hyper-neutrino in jelly, probably compressable

DLosc

12:59 AM

@RedwolfPrograms Vim, 28 bytes: c3lYou're not<esc>Ji, you're

Redwolf Programs

@Redwolf That was a bit more interesting to golf than I expected

Bubbler

Imaginary brownie points if your language allows to reuse You're and you're

Transcript for