Pompidou
Joined 6 years ago
Karma
135
Submissions
144
Member since
Jul 13
Joined 6 years ago
r/apljk on reddit is also active.
f =: ]`1:`>:`0:@.(4&|)"0
Then: (,. ; #: ; [: #: f) i.16
0 0 0 0 0 0 0 0 0
1 0 0 0 1 0 0 0 1
2 0 0 1 0 0 0 1 1
3 0 0 1 1 0 0 0 0
4 0 1 0 0 0 1 0 0
5 0 1 0 1 0 0 0 1
6 0 1 1 0 0 1 1 1
7 0 1 1 1 0 0 0 0
8 1 0 0 0 1 0 0 0
9 1 0 0 1 0 0 0 1
....For instance :
(],[) -: ([,])~
(],[) Appends right and left term while ([,])~ append left and right term after arguments order inversion.