Skip to content

Instantly share code, notes, and snippets.

View abrudz's full-sized avatar
🍏

Adám Brudzewsky abrudz

🍏
View GitHub Profile
@abrudz
abrudz / BAA-2023-03-09.apl
Created March 9, 2023 17:06
Session transcript from Adám's presentation at BAA Vector Webinar 2023-03-09
{1,2=/⍵}'rooobert'
1 0 1 1 0 0 0 0
{1,2≠/⍵}'rooobert'
1 1 0 0 1 1 1 1
{⍵/⍨1,2≠/⍵}'rooobert'
robert
≢'⎕←{⍵/⍨1,2≠/⍵}⍞'
14
'UTF-8'⎕UCS'⎕←{⍵/⍨1,2≠/⍵}⍞'
226 142 149 226 134 144 123 226 141 181 47 226 141 168 49 44 50 226 137 160
@abrudz
abrudz / Nord for 18.0 Unicode 64.reg
Created August 19, 2021 12:06
Nord Theme for 64-bit Unicode edition of Dyalog APL 18.0 on Windows
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\SOFTWARE\Dyalog\Dyalog APL/W-64 18.0 Unicode\Colours\Schemes\Nord]
"Data"=hex:4b,00,00,00,80,00,00,00,00,81,20,ec,ef,f4,81,40,bf,61,6a,84,20,8f,\
bc,bb,84,40,2e,34,40,83,20,8f,bc,bb,83,40,2e,34,40,8c,20,d8,de,e9,8c,40,2e,\
34,40,8d,20,eb,cb,8b,8d,40,2e,34,40,85,20,81,a1,c1,85,40,2e,34,40,86,20,d8,\
de,e9,86,40,2e,34,40,87,20,eb,cb,8b,87,40,2e,34,40,88,20,b4,8e,ad,88,40,2e,\
34,40,8b,20,a3,be,8c,8b,40,2e,34,40,89,20,61,6e,88,89,40,2e,34,40,8a,20,81,\
a1,c1,8a,40,2e,34,40,82,20,4c,56,6a,82,40,2e,34,40,8e,20,d8,de,e9,8e,40,2e,\
34,40,8f,20,00,c0,00,8f,40,2e,34,40,90,20,00,c0,00,90,40,2e,34,40,91,20,eb,\
← define denotes inplace let means naming only redefine update
+ across addition complex conj conjugating cross greek mirroring negateimaginary not reflecting reflection
- additiveinverse dash difference from invert negating negation opposite signchange subtraction
× chance condition conjunction fuzzy multiplication others probability product real satisfying sign trend zero
÷ division inverting multiplicativeinverse opposite over per reciprocating
* antiln antilog etothepowerof exp exponentiation ln log naturalexponential pow raised raisedtothepowerof raising
⍟ ln log logarithms logs
⌹ coefficients equation inverse inversed inversion pseudo pseudoinversion system values variable
○ angle archimedesconstant arcus big circle functions goniometric large ring times
! combinatorics condition countcombinations countpermutations fact from function gamma one others outof picking pling satisfying selecting selections size unordered
@abrudz
abrudz / AdamColors.reg
Created January 14, 2021 12:24
Adám's variations on the "Back in Black" (will activate) and "Default" colour schemes for Dyalog's Windows IDE
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Dyalog\Dyalog APL/W-64 18.0 Unicode\Colours]
"Settings"="15"
"ShowIdioms"="1"
"SingleBcol"="0"
"SchemeName"="AdamB"
"SessionSchemeName"="AdamB"
[HKEY_CURRENT_USER\Software\Dyalog\Dyalog APL/W-64 18.0 Unicode\Colours\Schemes\Adam]

Background

While the yearly get-togethers are called user meetings (previously known as conferences), I found that the social setting allowed Dyalog's staff to discuss and develop ideas in a way that would not happen in the office setting of Bramley.

I had a vague idea about an operator that would ease working with value tolerances and ranges. During our ride up Mount Etna, I by chance had the pleasure of sitting next to Geoff Streeter. We started discussing some things, and before long I had my laptop out and we were prototyping a new operator.

I discussed my idea with Nick Nickolov, who told me that being a fan of ⎕CT←0, he has considered to denote tolerant equality. I think we then naturally would want , and , and

We can make this file beautiful and searchable if this error is corrected: Unclosed quoted field in line 4.
Post Link,Score,AnswerCount,ClosedDate
"{
""id"": 108170,
""title"": ""Totally Cubular""
}","17","0",""
"{
""id"": 101222,
""title"": ""Hexasweep (part 1): The Solver""
}","15","0",""
"{
@abrudz
abrudz / P7S.aplf
Last active December 19, 2019 11:17
Solution to AoC 2015 P7
P7S←{
⍝ Implement recursive topological sort
Segs←#.U.Segs
Trim←#.U.Trim
data←⍉⊃¨@2⍉' 'Segs¨Trim↑'->'∘Segs¨⍵
results←¯1⍴⍨≢data
ToBin←(16⍴2)∘⊤
FromBin←2∘⊥
NOT←=
AND←∧
@abrudz
abrudz / lb.js
Created March 24, 2019 17:22
APL language bar
;(_=>{
let hc={'<':'&lt;','&':'&amp;',"'":'&apos;','"':'&quot;'},he=x=>x.replace(/[<&'"]/g,c=>hc[c]) //html chars and escape fn
,tcs='<-←xx×/\\×:-÷*O⍟[-⌹-]⌹OO○77⌈FF⌈ll⌊LL⌊|_⊥TT⊤-|⊣|-⊢=/≠L-≠<=≤<_≤>=≥>_≥==≡=_≡/_≢L=≢vv∨^^∧^~⍲v~⍱^|↑v|↓((⊂cc⊂(_⊆))⊃[|⌷|]⌷A|⍋V|⍒ii⍳i_⍸ee∊e_⍷'+
'uu∪UU∪nn∩/-⌿\\-⍀,-⍪rr⍴pp⍴O|⌽O-⊖O\\⍉::¨""¨~:⍨~"⍨*:⍣*"⍣oo∘o:⍤o"⍤[\'⍞\']⍞[]⎕[:⍠:]⍠[=⌸=]⌸[<⌺>]⌺o_⍎oT⍕o-⍕<>⋄on⍝->→aa⍺ww⍵VV∇--¯0~⍬'+
'^-∆^=⍙[?⍰?]⍰:V⍢∇"⍢||∥ox¤)_⊇_)⊇O:⍥O"⍥V~⍫\'\'`'
,lbs=['←←\nASSIGN',' ','++\nconjugate\nplus','--\nnegate\nminus','××\ndirection\ntimes','÷÷\nreciprocal\ndivide','**\nexponential\npower','⍟⍟\nnatural logarithm\nlogarithm',
'⌹⌹\nmatrix inverse\nmatrix divide','○○\npi times\ncircular','!!\nfactorial\nbinomial','??\nroll\ndeal',' ','||\nmagnitude\nresidue',
'⌈⌈\nceiling\nmaximum','⌊⌊\nfloor\nminimum','⊥⊥\ndecode','⊤⊤\nencode','⊣⊣\nsame\nleft','⊢⊢\nsame\nright',' ','==\nequal','≠≠\nnot equal',
'≤≤\nless than or equal to','<<\nless than','>>\ngreater than','≥≥\ngreater than or equal to','≡≡\ndepth\nmatch','≢≢\ntally\nnot matc
@abrudz
abrudz / Mean.ipynb
Created September 17, 2018 13:48
Webinar file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@abrudz
abrudz / mean.ipynb
Created September 14, 2018 09:31
Webinar file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.