Skip to content

Instantly share code, notes, and snippets.

View saweiss's full-sized avatar

Sam Weiss saweiss

  • Southern Connecticut State University
View GitHub Profile
@saweiss
saweiss / Phase1Contest2020.dyalog
Created August 9, 2020 17:18
Dyalog APL Contest 2020 solutions as submitted by Sam Weiss
P1←(1≠(×⊣))⌽↑{⊆⍺⍵}↓
P2←(128∘>∨191∘<)⊂⊢
P3←26⊥⎕A∘⍳
P4←≠⌿0=400 100 4∘.|⊢
P5←⊢{⍵,⍵-(××⍳∘|)-/⍺}⊃
P6←(⊣(⌿⍨)(+⌿=))⍪~⍨
P7←{⍺=2⊥∧/(2∘⊥⍣¯1)⍺⍵}
P8←¯1∧.=2×/(×2-/10∘⊥⍣¯1)
P9←{1∧.=≢∘∪¨⊆⍨2@(¯1∘=)×0~⍨(+\⍣¯1)⍵}
P10←↑((⊢⍴⍨(×/⍴))~((⊂' '⍴⍨(⍴⊃))))∘(↓(↑⍕¨))
@saweiss
saweiss / LIB_NOVAS_F3.1_Makefile
Last active March 15, 2018 00:55
NOVAS Fortran Version 3.1 Makefile
Naval Observatory Vector Astrometry Software (NOVAS) Fortran Version 3.1 Makefile
See the comments at the top of the Makefile for usage details.
Makefile by Samuel A. Weiss (sweiss1993@gmail.com and saweiss on GitHub).
References:
Kaplan, G., Bartlett, J., Monet, A., Bangert, J., & Puatua, W. (2011)
User's Guide to NOVAS Version F3.1 (Washington, DC: USNO).
@saweiss
saweiss / HW3Problem3.3.4.ipynb
Created February 13, 2017 17:07
PHY 512 Assignment 3 Bonus Question
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.