Lots of Ruby for 2016

common_lisp/2015/1/problem.lisp

@@ -0,0 +1,23 @@
+(require :uiop)
+
+(defun input-string () (uiop:read-file-string "../../../data/2015/1/input.txt"))
+
+(defun floor-from-next-char (floor char)
+  (if (char= #\( char) (1+ floor) (if (char= #\) char) (1- floor) floor)))
+
+(defun floor-from-string (string)
+  (reduce #'floor-from-next-char string :initial-value 0))
+
+(defun steps-from-string (string)
+(cdr (reduce (lambda (a b)
+		   (let ((floor (car a))
+			 (steps (cdr a)))
+		     (if (> 0 floor) (cons floor steps)
+			 (cons (floor-from-next-char floor b) (1+ steps)))))
+		 string :initial-value (cons 0 0))))
+
+(defun part-1 () (format t "Part 1: ~a" (floor-from-string (input-string))))
+(defun part-2 () (format t "Part 2: ~a" (steps-from-string (input-string))))
+(defun solution () (part-1) (terpri) (part-2) (terpri))
+
+(solution)

common_lisp/2015/2/problem.lisp

@@ -0,0 +1,72 @@
+(require :uiop)
+
+(defun input-string () (string-trim '(#\newline) (uiop:read-file-string "../../../data/2015/2/input.txt")))
+
+(defun input-string-list () (uiop:split-string (input-string) :separator (list #\linefeed)))
+
+(defun string-to-dimension-list (string)
+  (mapcar #'parse-integer 
+	  (uiop:split-string string :separator (list #\x))))
+
+(defun dimension-list-to-surface-area (dimension-list)
+  (let ((length (first dimension-list))
+	(width (second dimension-list))
+	(height (third dimension-list)))
+    (+ (* 2 length width) (* 2 length height) (* 2 width height))))
+
+(defun dimension-list-to-slack (dimension-list)
+  (let ((length (first dimension-list))
+	(width (second dimension-list))
+	(height (third dimension-list)))
+    (let ((top (* length width))
+	  (front (* width height))
+	  (side (* length height)))
+      (min top front side))))
+
+(defun dimension-list-to-bow (dimension-list)
+  (let ((length (first dimension-list))
+	(width (second dimension-list))
+	(height (third dimension-list)))
+    (* length width height)))
+
+(defun dimension-list-to-wrap-ribbon (dimension-list)
+  (let ((length (first dimension-list))
+	(width (second dimension-list))
+	(height (third dimension-list)))
+    (let ((top-perim (* 2 (+ length width)))
+	  (front-perim (* 2 (+ width height)))
+	  (side-perim (* 2 (+ length height))))
+      (min top-perim front-perim side-perim))))
+
+(defun dimension-list-to-ribbon (dimension-list)
+  (+ (dimension-list-to-wrap-ribbon dimension-list) (dimension-list-to-bow dimension-list)))
+
+(defun dimension-list-to-paper (dimension-list)
+  (+ (dimension-list-to-surface-area dimension-list) (dimension-list-to-slack dimension-list)))
+
+(defun string-to-paper (string)
+  (dimension-list-to-paper (string-to-dimension-list string)))
+
+(defun string-to-ribbon (string)
+  (dimension-list-to-ribbon (string-to-dimension-list string)))
+
+(defun part-1 ()
+  (reduce (lambda (sfp string)
+	    (+ (string-to-paper string) sfp))
+	  (input-string-list)
+	  :initial-value 0))
+
+(defun part-2 ()
+  (reduce (lambda (sfp string)
+	    (+ (string-to-ribbon string) sfp))
+	  (input-string-list)
+	  :initial-value 0))
+
+(defun solution ()
+  (format t "Part 1: ~a" (part-1))
+  (terpri)
+  (format t "Part 2: ~a" (part-2))
+  (terpri))
+
+(solution)
+

gb/.gitignore

@@ -0,0 +1,4 @@
+bgb.exe
+bgb.ini
+*.gb
+*.o

gb/2015/1/not_quite_lisp.asm

@@ -0,0 +1,173 @@
+INCLUDE "lib/hardware.inc"
+INCLUDE "lib/macros.inc"
+
+SECTION "VBlank Interrupt", ROM0[$40]
+	jp VBlankHandler
+
+SECTION "Header", ROM0[$100]
+	jp EntryPoint
+	ds $150 - @, 0 ; Make room for the header
+
+SECTION "Init", ROM0[$150]
+EntryPoint:
+	StartInit
+
+	ClearScreen
+	ClearOAM
+	LoadTiles
+
+	MemClear current_frame, 2
+	MemClear current_floor, 2
+	MemClear first_basement_floor, 2
+	MemClear done_flag, 1
+
+	;; Initialize input_index
+	ld bc, input
+	ld a, b
+	ld [input_index], a
+	ld a, c
+	ld [input_index + 1], a
+
+	FinishInit
+	ei
+
+CheckInput:	
+	ld a, [input_index]
+	ld h, a
+	ld a, [input_index + 1]
+	ld l, a
+	ld a, [hl]
+
+	cp a, "("
+	jr z, GoingUp
+	cp a, ")"
+	jr z, GoingDown
+	jr GoingNowhere
+GoingUp:	
+	call IncrementCurrentFloor
+	jr GoingNowhere
+GoingDown:	
+	ld a, [current_floor]
+	ld b, a
+	ld a, [current_floor + 1]
+	and a, b
+	call z, SaveBasementFloor
+
+	call DecrementCurrentFloor
+GoingNowhere:	
+	IncrementWord input_index
+
+	ld de, input_end
+	ld a, [input_index]
+	cp a, d
+	jr nz, CheckInput
+
+	ld a, [input_index + 1]
+	cp a, e
+	jr nz, CheckInput
+
+	ld a, 1
+	ld [done_flag], a
+
+	halt
+	nop
+	jr Done
+
+Done:	
+	halt
+	nop
+	jr Done
+
+IncrementCurrentFloor:
+	ld a, [current_floor]
+	ld b, a
+	ld a, [current_floor + 1]
+	ld c, a
+
+	inc bc
+
+	ld a, b
+	ld [current_floor], a
+	ld a, c
+	ld [current_floor + 1], a
+	
+	ret
+
+DecrementCurrentFloor:
+	ld a, [current_floor]
+	ld b, a
+	ld a, [current_floor + 1]
+	ld c, a
+
+	dec bc
+
+	ld a, b
+	ld [current_floor], a
+	ld a, c
+	ld [current_floor + 1], a
+	
+	ret
+
+SaveBasementFloor:
+	ld a, [first_basement_floor]
+	ld b, a
+	ld a, [first_basement_floor + 1]
+	or a, b
+	ret nz
+
+	ld a, [input_index]
+	ld [first_basement_floor], a
+	ld a, [input_index + 1]
+	ld [first_basement_floor + 1], a
+
+	ret
+
+VBlankHandler:
+	push AF
+	push BC
+	push DE
+	push HL
+	
+	IncrementFrameCount
+
+	PrintString part_1_string, 0, 1
+	PrintString part_2_string, 0, 2
+	;; PrintByteHex current_frame, 0, 0
+	;; PrintByte current_frame, 0, 1
+	;; PrintByteHex current_floor, 0, 2
+	;; PrintByteHex current_floor + 1, 2, 2
+	ld a, [done_flag]
+	cp a, 1
+	jp nz, NotDone
+	PrintString done_string, 3, 3
+	PrintByte current_floor + 1, 8, 1
+        ;; PrintByte first_basement_floor + 1, 8, 2
+
+NotDone:	
+	pop HL
+	pop DE
+	pop BC
+	pop AF
+	reti
+
+SECTION "High RAM", HRAM
+current_floor:		DS 2
+first_basement_floor:	DS 2
+done_flag:		DS 1
+
+SECTION "Input", ROM0
+input:
+INCBIN "../data/2015/1/input.txt"
+input_end:
+
+done_string:
+	db "Done", 0
+done_string_end:	
+
+part_1_string:	db "Part 1: "
+part_1_string_end:
+
+part_2_string:	db "Part 2: "
+part_2_string_end:
+
+INCLUDE "lib/tiles.asm"

gb/bin/run

@@ -0,0 +1,23 @@
+#!/usr/bin/env bash
+
+year=$1
+day=$2
+
+mkdir -p $year/$day
+source_file=$(ls $year/$day/*.asm)
+
+if [[ -z $source_file ]] ; then
+    echo "No asm source file found in $year/$day"
+    exit 1
+fi
+
+set -e
+
+rgbgfx -o lib/text.2bpp lib/text.png
+
+rgbasm  -o $year/$day/main.o  $source_file -H -Wall -E
+rgblink -o $year/$day/main.gb $year/$day/main.o
+rgbfix  -v -p 0xFF            $year/$day/main.gb
+
+wine    bin/bgb.exe $year/$day/main.gb
+

gb/lib/hardware.inc

@@ -0,0 +1,922 @@
+;*
+;* Gameboy Hardware definitions
+;*
+;* Based on Jones' hardware.inc
+;* And based on Carsten Sorensen's ideas.
+;*
+;* Rev 1.1 - 15-Jul-97 : Added define check
+;* Rev 1.2 - 18-Jul-97 : Added revision check macro
+;* Rev 1.3 - 19-Jul-97 : Modified for RGBASM V1.05
+;* Rev 1.4 - 27-Jul-97 : Modified for new subroutine prefixes
+;* Rev 1.5 - 15-Aug-97 : Added _HRAM, PAD, CART defines
+;*                     :  and Nintendo Logo
+;* Rev 1.6 - 30-Nov-97 : Added rDIV, rTIMA, rTMA, & rTAC
+;* Rev 1.7 - 31-Jan-98 : Added _SCRN0, _SCRN1
+;* Rev 1.8 - 15-Feb-98 : Added rSB, rSC
+;* Rev 1.9 - 16-Feb-98 : Converted I/O registers to $FFXX format
+;* Rev 2.0 -           : Added GBC registers
+;* Rev 2.1 -           : Added MBC5 & cart RAM enable/disable defines
+;* Rev 2.2 -           : Fixed NR42,NR43, & NR44 equates
+;* Rev 2.3 -           : Fixed incorrect _HRAM equate
+;* Rev 2.4 - 27-Apr-13 : Added some cart defines (AntonioND)
+;* Rev 2.5 - 03-May-15 : Fixed format (AntonioND)
+;* Rev 2.6 - 09-Apr-16 : Added GBC OAM and cart defines (AntonioND)
+;* Rev 2.7 - 19-Jan-19 : Added rPCMXX (ISSOtm)
+;* Rev 2.8 - 03-Feb-19 : Added audio registers flags (Álvaro Cuesta)
+;* Rev 2.9 - 28-Feb-20 : Added utility rP1 constants
+;* Rev 3.0 - 27-Aug-20 : Register ordering, byte-based sizes, OAM additions, general cleanup (Blitter Object)
+;* Rev 4.0 - 03-May-21 : Updated to use RGBDS 0.5.0 syntax, changed IEF_LCDC to IEF_STAT (Eievui)
+
+IF __RGBDS_MAJOR__ == 0 && __RGBDS_MINOR__ < 5
+    FAIL "This version of 'hardware.inc' requires RGBDS version 0.5.0 or later."
+ENDC
+
+; If all of these are already defined, don't do it again.
+
+    IF !DEF(HARDWARE_INC)
+DEF HARDWARE_INC EQU 1
+
+MACRO rev_Check_hardware_inc
+;NOTE: REVISION NUMBER CHANGES MUST BE ADDED
+;TO SECOND PARAMETER IN FOLLOWING LINE.
+    IF  \1 > 4.0 ;PUT REVISION NUMBER HERE
+        WARN    "Version \1 or later of 'hardware.inc' is required."
+    ENDC
+ENDM
+
+DEF _VRAM        EQU $8000 ; $8000->$9FFF
+DEF _VRAM8000    EQU _VRAM
+DEF _VRAM8800    EQU _VRAM+$800
+DEF _VRAM9000    EQU _VRAM+$1000
+DEF _SCRN0       EQU $9800 ; $9800->$9BFF
+DEF _SCRN1       EQU $9C00 ; $9C00->$9FFF
+DEF _SRAM        EQU $A000 ; $A000->$BFFF
+DEF _RAM         EQU $C000 ; $C000->$CFFF / $C000->$DFFF
+DEF _RAMBANK     EQU $D000 ; $D000->$DFFF
+DEF _OAMRAM      EQU $FE00 ; $FE00->$FE9F
+DEF _IO          EQU $FF00 ; $FF00->$FF7F,$FFFF
+DEF _AUD3WAVERAM EQU $FF30 ; $FF30->$FF3F
+DEF _HRAM        EQU $FF80 ; $FF80->$FFFE
+
+; *** MBC5 Equates ***
+
+DEF rRAMG        EQU $0000 ; $0000->$1fff
+DEF rROMB0       EQU $2000 ; $2000->$2fff
+DEF rROMB1       EQU $3000 ; $3000->$3fff - If more than 256 ROM banks are present.
+DEF rRAMB        EQU $4000 ; $4000->$5fff - Bit 3 enables rumble (if present)
+
+
+;***************************************************************************
+;*
+;* Custom registers
+;*
+;***************************************************************************
+
+; --
+; -- P1 ($FF00)
+; -- Register for reading joy pad info. (R/W)
+; --
+DEF rP1 EQU $FF00
+
+DEF P1F_5 EQU %00100000 ; P15 out port, set to 0 to get buttons
+DEF P1F_4 EQU %00010000 ; P14 out port, set to 0 to get dpad
+DEF P1F_3 EQU %00001000 ; P13 in port
+DEF P1F_2 EQU %00000100 ; P12 in port
+DEF P1F_1 EQU %00000010 ; P11 in port
+DEF P1F_0 EQU %00000001 ; P10 in port
+
+DEF P1F_GET_DPAD EQU P1F_5
+DEF P1F_GET_BTN  EQU P1F_4
+DEF P1F_GET_NONE EQU P1F_4 | P1F_5
+
+
+; --
+; -- SB ($FF01)
+; -- Serial Transfer Data (R/W)
+; --
+DEF rSB EQU $FF01
+
+
+; --
+; -- SC ($FF02)
+; -- Serial I/O Control (R/W)
+; --
+DEF rSC EQU $FF02
+
+
+; --
+; -- DIV ($FF04)
+; -- Divider register (R/W)
+; --
+DEF rDIV EQU $FF04
+
+
+; --
+; -- TIMA ($FF05)
+; -- Timer counter (R/W)
+; --
+DEF rTIMA EQU $FF05
+
+
+; --
+; -- TMA ($FF06)
+; -- Timer modulo (R/W)
+; --
+DEF rTMA EQU $FF06
+
+
+; --
+; -- TAC ($FF07)
+; -- Timer control (R/W)
+; --
+DEF rTAC EQU $FF07
+
+DEF TACF_START  EQU %00000100
+DEF TACF_STOP   EQU %00000000
+DEF TACF_4KHZ   EQU %00000000
+DEF TACF_16KHZ  EQU %00000011
+DEF TACF_65KHZ  EQU %00000010
+DEF TACF_262KHZ EQU %00000001
+
+
+; --
+; -- IF ($FF0F)
+; -- Interrupt Flag (R/W)
+; --
+DEF rIF EQU $FF0F
+
+
+; --
+; -- AUD1SWEEP/NR10 ($FF10)
+; -- Sweep register (R/W)
+; --
+; -- Bit 6-4 - Sweep Time
+; -- Bit 3   - Sweep Increase/Decrease
+; --           0: Addition    (frequency increases???)
+; --           1: Subtraction (frequency increases???)
+; -- Bit 2-0 - Number of sweep shift (# 0-7)
+; -- Sweep Time: (n*7.8ms)
+; --
+DEF rNR10 EQU $FF10
+DEF rAUD1SWEEP EQU rNR10
+
+DEF AUD1SWEEP_UP   EQU %00000000
+DEF AUD1SWEEP_DOWN EQU %00001000
+
+
+; --
+; -- AUD1LEN/NR11 ($FF11)
+; -- Sound length/Wave pattern duty (R/W)
+; --
+; -- Bit 7-6 - Wave Pattern Duty (00:12.5% 01:25% 10:50% 11:75%)
+; -- Bit 5-0 - Sound length data (# 0-63)
+; --
+DEF rNR11 EQU $FF11
+DEF rAUD1LEN EQU rNR11
+
+
+; --
+; -- AUD1ENV/NR12 ($FF12)
+; -- Envelope (R/W)
+; --
+; -- Bit 7-4 - Initial value of envelope
+; -- Bit 3   - Envelope UP/DOWN
+; --           0: Decrease
+; --           1: Range of increase
+; -- Bit 2-0 - Number of envelope sweep (# 0-7)
+; --
+DEF rNR12 EQU $FF12
+DEF rAUD1ENV EQU rNR12
+
+
+; --
+; -- AUD1LOW/NR13 ($FF13)
+; -- Frequency low byte (W)
+; --
+DEF rNR13 EQU $FF13
+DEF rAUD1LOW EQU rNR13
+
+
+; --
+; -- AUD1HIGH/NR14 ($FF14)
+; -- Frequency high byte (W)
+; --
+; -- Bit 7   - Initial (when set, sound restarts)
+; -- Bit 6   - Counter/consecutive selection
+; -- Bit 2-0 - Frequency's higher 3 bits
+; --
+DEF rNR14 EQU $FF14
+DEF rAUD1HIGH EQU rNR14
+
+
+; --
+; -- AUD2LEN/NR21 ($FF16)
+; -- Sound Length; Wave Pattern Duty (R/W)
+; --
+; -- see AUD1LEN for info
+; --
+DEF rNR21 EQU $FF16
+DEF rAUD2LEN EQU rNR21
+
+
+; --
+; -- AUD2ENV/NR22 ($FF17)
+; -- Envelope (R/W)
+; --
+; -- see AUD1ENV for info
+; --
+DEF rNR22 EQU $FF17
+DEF rAUD2ENV EQU rNR22
+
+
+; --
+; -- AUD2LOW/NR23 ($FF18)
+; -- Frequency low byte (W)
+; --
+DEF rNR23 EQU $FF18
+DEF rAUD2LOW EQU rNR23
+
+
+; --
+; -- AUD2HIGH/NR24 ($FF19)
+; -- Frequency high byte (W)
+; --
+; -- see AUD1HIGH for info
+; --
+DEF rNR24 EQU $FF19
+DEF rAUD2HIGH EQU rNR24
+
+
+; --
+; -- AUD3ENA/NR30 ($FF1A)
+; -- Sound on/off (R/W)
+; --
+; -- Bit 7   - Sound ON/OFF (1=ON,0=OFF)
+; --
+DEF rNR30 EQU $FF1A
+DEF rAUD3ENA EQU rNR30
+
+
+; --
+; -- AUD3LEN/NR31 ($FF1B)
+; -- Sound length (R/W)
+; --
+; -- Bit 7-0 - Sound length
+; --
+DEF rNR31 EQU $FF1B
+DEF rAUD3LEN EQU rNR31
+
+
+; --
+; -- AUD3LEVEL/NR32 ($FF1C)
+; -- Select output level
+; --
+; -- Bit 6-5 - Select output level
+; --           00: 0/1 (mute)
+; --           01: 1/1
+; --           10: 1/2
+; --           11: 1/4
+; --
+DEF rNR32 EQU $FF1C
+DEF rAUD3LEVEL EQU rNR32
+
+
+; --
+; -- AUD3LOW/NR33 ($FF1D)
+; -- Frequency low byte (W)
+; --
+; -- see AUD1LOW for info
+; --
+DEF rNR33 EQU $FF1D
+DEF rAUD3LOW EQU rNR33
+
+
+; --
+; -- AUD3HIGH/NR34 ($FF1E)
+; -- Frequency high byte (W)
+; --
+; -- see AUD1HIGH for info
+; --
+DEF rNR34 EQU $FF1E
+DEF rAUD3HIGH EQU rNR34
+
+
+; --
+; -- AUD4LEN/NR41 ($FF20)
+; -- Sound length (R/W)
+; --
+; -- Bit 5-0 - Sound length data (# 0-63)
+; --
+DEF rNR41 EQU $FF20
+DEF rAUD4LEN EQU rNR41
+
+
+; --
+; -- AUD4ENV/NR42 ($FF21)
+; -- Envelope (R/W)
+; --
+; -- see AUD1ENV for info
+; --
+DEF rNR42 EQU $FF21
+DEF rAUD4ENV EQU rNR42
+
+
+; --
+; -- AUD4POLY/NR43 ($FF22)
+; -- Polynomial counter (R/W)
+; --
+; -- Bit 7-4 - Selection of the shift clock frequency of the (scf)
+; --           polynomial counter (0000-1101)
+; --           freq=drf*1/2^scf (not sure)
+; -- Bit 3 -   Selection of the polynomial counter's step
+; --           0: 15 steps
+; --           1: 7 steps
+; -- Bit 2-0 - Selection of the dividing ratio of frequencies (drf)
+; --           000: f/4   001: f/8   010: f/16  011: f/24
+; --           100: f/32  101: f/40  110: f/48  111: f/56  (f=4.194304 Mhz)
+; --
+DEF rNR43 EQU $FF22
+DEF rAUD4POLY EQU rNR43
+
+
+; --
+; -- AUD4GO/NR44 ($FF23)
+; --
+; -- Bit 7 -   Inital
+; -- Bit 6 -   Counter/consecutive selection
+; --
+DEF rNR44 EQU $FF23
+DEF rAUD4GO EQU rNR44
+
+
+; --
+; -- AUDVOL/NR50 ($FF24)
+; -- Channel control / ON-OFF / Volume (R/W)
+; --
+; -- Bit 7   - Vin->SO2 ON/OFF (Vin??)
+; -- Bit 6-4 - SO2 output level (volume) (# 0-7)
+; -- Bit 3   - Vin->SO1 ON/OFF (Vin??)
+; -- Bit 2-0 - SO1 output level (volume) (# 0-7)
+; --
+DEF rNR50 EQU $FF24
+DEF rAUDVOL EQU rNR50
+
+DEF AUDVOL_VIN_LEFT  EQU %10000000 ; SO2
+DEF AUDVOL_VIN_RIGHT EQU %00001000 ; SO1
+
+
+; --
+; -- AUDTERM/NR51 ($FF25)
+; -- Selection of Sound output terminal (R/W)
+; --
+; -- Bit 7   - Output sound 4 to SO2 terminal
+; -- Bit 6   - Output sound 3 to SO2 terminal
+; -- Bit 5   - Output sound 2 to SO2 terminal
+; -- Bit 4   - Output sound 1 to SO2 terminal
+; -- Bit 3   - Output sound 4 to SO1 terminal
+; -- Bit 2   - Output sound 3 to SO1 terminal
+; -- Bit 1   - Output sound 2 to SO1 terminal
+; -- Bit 0   - Output sound 0 to SO1 terminal
+; --
+DEF rNR51 EQU $FF25
+DEF rAUDTERM EQU rNR51
+
+; SO2
+DEF AUDTERM_4_LEFT  EQU %10000000
+DEF AUDTERM_3_LEFT  EQU %01000000
+DEF AUDTERM_2_LEFT  EQU %00100000
+DEF AUDTERM_1_LEFT  EQU %00010000
+; SO1
+DEF AUDTERM_4_RIGHT EQU %00001000
+DEF AUDTERM_3_RIGHT EQU %00000100
+DEF AUDTERM_2_RIGHT EQU %00000010
+DEF AUDTERM_1_RIGHT EQU %00000001
+
+
+; --
+; -- AUDENA/NR52 ($FF26)
+; -- Sound on/off (R/W)
+; --
+; -- Bit 7   - All sound on/off (sets all audio regs to 0!)
+; -- Bit 3   - Sound 4 ON flag (read only)
+; -- Bit 2   - Sound 3 ON flag (read only)
+; -- Bit 1   - Sound 2 ON flag (read only)
+; -- Bit 0   - Sound 1 ON flag (read only)
+; --
+DEF rNR52 EQU $FF26
+DEF rAUDENA EQU rNR52
+
+DEF AUDENA_ON    EQU %10000000
+DEF AUDENA_OFF   EQU %00000000  ; sets all audio regs to 0!
+
+
+; --
+; -- LCDC ($FF40)
+; -- LCD Control (R/W)
+; --
+DEF rLCDC EQU $FF40
+
+DEF LCDCF_OFF     EQU %00000000 ; LCD Control Operation
+DEF LCDCF_ON      EQU %10000000 ; LCD Control Operation
+DEF LCDCF_WIN9800 EQU %00000000 ; Window Tile Map Display Select
+DEF LCDCF_WIN9C00 EQU %01000000 ; Window Tile Map Display Select
+DEF LCDCF_WINOFF  EQU %00000000 ; Window Display
+DEF LCDCF_WINON   EQU %00100000 ; Window Display
+DEF LCDCF_BG8800  EQU %00000000 ; BG & Window Tile Data Select
+DEF LCDCF_BG8000  EQU %00010000 ; BG & Window Tile Data Select
+DEF LCDCF_BG9800  EQU %00000000 ; BG Tile Map Display Select
+DEF LCDCF_BG9C00  EQU %00001000 ; BG Tile Map Display Select
+DEF LCDCF_OBJ8    EQU %00000000 ; OBJ Construction
+DEF LCDCF_OBJ16   EQU %00000100 ; OBJ Construction
+DEF LCDCF_OBJOFF  EQU %00000000 ; OBJ Display
+DEF LCDCF_OBJON   EQU %00000010 ; OBJ Display
+DEF LCDCF_BGOFF   EQU %00000000 ; BG Display
+DEF LCDCF_BGON    EQU %00000001 ; BG Display
+; "Window Character Data Select" follows BG
+
+
+; --
+; -- STAT ($FF41)
+; -- LCDC Status   (R/W)
+; --
+DEF rSTAT EQU $FF41
+
+DEF STATF_LYC     EQU  %01000000 ; LYC=LY Coincidence (Selectable)
+DEF STATF_MODE10  EQU  %00100000 ; Mode 10
+DEF STATF_MODE01  EQU  %00010000 ; Mode 01 (V-Blank)
+DEF STATF_MODE00  EQU  %00001000 ; Mode 00 (H-Blank)
+DEF STATF_LYCF    EQU  %00000100 ; Coincidence Flag
+DEF STATF_HBL     EQU  %00000000 ; H-Blank
+DEF STATF_VBL     EQU  %00000001 ; V-Blank
+DEF STATF_OAM     EQU  %00000010 ; OAM-RAM is used by system
+DEF STATF_LCD     EQU  %00000011 ; Both OAM and VRAM used by system
+DEF STATF_BUSY    EQU  %00000010 ; When set, VRAM access is unsafe
+
+
+; --
+; -- SCY ($FF42)
+; -- Scroll Y (R/W)
+; --
+DEF rSCY EQU $FF42
+
+
+; --
+; -- SCX ($FF43)
+; -- Scroll X (R/W)
+; --
+DEF rSCX EQU $FF43
+
+
+; --
+; -- LY ($FF44)
+; -- LCDC Y-Coordinate (R)
+; --
+; -- Values range from 0->153. 144->153 is the VBlank period.
+; --
+DEF rLY EQU $FF44
+
+
+; --
+; -- LYC ($FF45)
+; -- LY Compare (R/W)
+; --
+; -- When LY==LYC, STATF_LYCF will be set in STAT
+; --
+DEF rLYC EQU $FF45
+
+
+; --
+; -- DMA ($FF46)
+; -- DMA Transfer and Start Address (W)
+; --
+DEF rDMA EQU $FF46
+
+
+; --
+; -- BGP ($FF47)
+; -- BG Palette Data (W)
+; --
+; -- Bit 7-6 - Intensity for %11
+; -- Bit 5-4 - Intensity for %10
+; -- Bit 3-2 - Intensity for %01
+; -- Bit 1-0 - Intensity for %00
+; --
+DEF rBGP EQU $FF47
+
+
+; --
+; -- OBP0 ($FF48)
+; -- Object Palette 0 Data (W)
+; --
+; -- See BGP for info
+; --
+DEF rOBP0 EQU $FF48
+
+
+; --
+; -- OBP1 ($FF49)
+; -- Object Palette 1 Data (W)
+; --
+; -- See BGP for info
+; --
+DEF rOBP1 EQU $FF49
+
+
+; --
+; -- WY ($FF4A)
+; -- Window Y Position (R/W)
+; --
+; -- 0 <= WY <= 143
+; -- When WY = 0, the window is displayed from the top edge of the LCD screen.
+; --
+DEF rWY EQU $FF4A
+
+
+; --
+; -- WX ($FF4B)
+; -- Window X Position (R/W)
+; --
+; -- 7 <= WX <= 166
+; -- When WX = 7, the window is displayed from the left edge of the LCD screen.
+; -- Values of 0-6 and 166 are unreliable due to hardware bugs.
+; --
+DEF rWX EQU $FF4B
+
+
+; --
+; -- SPEED ($FF4D)
+; -- Select CPU Speed (R/W)
+; --
+DEF rKEY1 EQU $FF4D
+DEF rSPD  EQU rKEY1
+
+DEF KEY1F_DBLSPEED EQU %10000000 ; 0=Normal Speed, 1=Double Speed (R)
+DEF KEY1F_PREPARE  EQU %00000001 ; 0=No, 1=Prepare (R/W)
+
+
+; --
+; -- VBK ($FF4F)
+; -- Select Video RAM Bank (R/W)
+; --
+; -- Bit 0 - Bank Specification (0: Specify Bank 0; 1: Specify Bank 1)
+; --
+DEF rVBK EQU $FF4F
+
+
+; --
+; -- HDMA1 ($FF51)
+; -- High byte for Horizontal Blanking/General Purpose DMA source address (W)
+; -- CGB Mode Only
+; --
+DEF rHDMA1 EQU $FF51
+
+
+; --
+; -- HDMA2 ($FF52)
+; -- Low byte for Horizontal Blanking/General Purpose DMA source address (W)
+; -- CGB Mode Only
+; --
+DEF rHDMA2 EQU $FF52
+
+
+; --
+; -- HDMA3 ($FF53)
+; -- High byte for Horizontal Blanking/General Purpose DMA destination address (W)
+; -- CGB Mode Only
+; --
+DEF rHDMA3 EQU $FF53
+
+
+; --
+; -- HDMA4 ($FF54)
+; -- Low byte for Horizontal Blanking/General Purpose DMA destination address (W)
+; -- CGB Mode Only
+; --
+DEF rHDMA4 EQU $FF54
+
+
+; --
+; -- HDMA5 ($FF55)
+; -- Transfer length (in tiles minus 1)/mode/start for Horizontal Blanking, General Purpose DMA (R/W)
+; -- CGB Mode Only
+; --
+DEF rHDMA5 EQU $FF55
+
+DEF HDMA5F_MODE_GP  EQU %00000000 ; General Purpose DMA (W)
+DEF HDMA5F_MODE_HBL EQU %10000000 ; HBlank DMA (W)
+
+; -- Once DMA has started, use HDMA5F_BUSY to check when the transfer is complete
+DEF HDMA5F_BUSY EQU %10000000 ; 0=Busy (DMA still in progress), 1=Transfer complete (R)
+
+
+; --
+; -- RP ($FF56)
+; -- Infrared Communications Port (R/W)
+; -- CGB Mode Only
+; --
+DEF rRP EQU $FF56
+
+DEF RPF_ENREAD   EQU %11000000
+DEF RPF_DATAIN   EQU %00000010 ; 0=Receiving IR Signal, 1=Normal
+DEF RPF_WRITE_HI EQU %00000001
+DEF RPF_WRITE_LO EQU %00000000
+
+
+; --
+; -- BCPS ($FF68)
+; -- Background Color Palette Specification (R/W)
+; --
+DEF rBCPS EQU $FF68
+
+DEF BCPSF_AUTOINC EQU %10000000 ; Auto Increment (0=Disabled, 1=Increment after Writing)
+
+
+; --
+; -- BCPD ($FF69)
+; -- Background Color Palette Data (R/W)
+; --
+DEF rBCPD EQU $FF69
+
+
+; --
+; -- OCPS ($FF6A)
+; -- Object Color Palette Specification (R/W)
+; --
+DEF rOCPS EQU $FF6A
+
+DEF OCPSF_AUTOINC EQU %10000000 ; Auto Increment (0=Disabled, 1=Increment after Writing)
+
+
+; --
+; -- OCPD ($FF6B)
+; -- Object Color Palette Data (R/W)
+; --
+DEF rOCPD EQU $FF6B
+
+
+; --
+; -- SMBK/SVBK ($FF70)
+; -- Select Main RAM Bank (R/W)
+; --
+; -- Bit 2-0 - Bank Specification (0,1: Specify Bank 1; 2-7: Specify Banks 2-7)
+; --
+DEF rSVBK EQU $FF70
+DEF rSMBK EQU rSVBK
+
+
+; --
+; -- PCM12 ($FF76)
+; -- Sound channel 1&2 PCM amplitude (R)
+; --
+; -- Bit 7-4 - Copy of sound channel 2's PCM amplitude
+; -- Bit 3-0 - Copy of sound channel 1's PCM amplitude
+; --
+DEF rPCM12 EQU $FF76
+
+
+; --
+; -- PCM34 ($FF77)
+; -- Sound channel 3&4 PCM amplitude (R)
+; --
+; -- Bit 7-4 - Copy of sound channel 4's PCM amplitude
+; -- Bit 3-0 - Copy of sound channel 3's PCM amplitude
+; --
+DEF rPCM34 EQU $FF77
+
+
+; --
+; -- IE ($FFFF)
+; -- Interrupt Enable (R/W)
+; --
+DEF rIE EQU $FFFF
+
+DEF IEF_HILO   EQU %00010000 ; Transition from High to Low of Pin number P10-P13
+DEF IEF_SERIAL EQU %00001000 ; Serial I/O transfer end
+DEF IEF_TIMER  EQU %00000100 ; Timer Overflow
+DEF IEF_STAT   EQU %00000010 ; STAT
+DEF IEF_VBLANK EQU %00000001 ; V-Blank
+
+
+;***************************************************************************
+;*
+;* Flags common to multiple sound channels
+;*
+;***************************************************************************
+
+; --
+; -- Square wave duty cycle
+; --
+; -- Can be used with AUD1LEN and AUD2LEN
+; -- See AUD1LEN for more info
+; --
+DEF AUDLEN_DUTY_12_5    EQU %00000000 ; 12.5%
+DEF AUDLEN_DUTY_25      EQU %01000000 ; 25%
+DEF AUDLEN_DUTY_50      EQU %10000000 ; 50%
+DEF AUDLEN_DUTY_75      EQU %11000000 ; 75%
+
+
+; --
+; -- Audio envelope flags
+; --
+; -- Can be used with AUD1ENV, AUD2ENV, AUD4ENV
+; -- See AUD1ENV for more info
+; --
+DEF AUDENV_UP           EQU %00001000
+DEF AUDENV_DOWN         EQU %00000000
+
+
+; --
+; -- Audio trigger flags
+; --
+; -- Can be used with AUD1HIGH, AUD2HIGH, AUD3HIGH
+; -- See AUD1HIGH for more info
+; --
+
+DEF AUDHIGH_RESTART     EQU %10000000
+DEF AUDHIGH_LENGTH_ON   EQU %01000000
+DEF AUDHIGH_LENGTH_OFF  EQU %00000000
+
+
+;***************************************************************************
+;*
+;* CPU values on bootup (a=type, b=qualifier)
+;*
+;***************************************************************************
+
+DEF BOOTUP_A_DMG    EQU $01 ; Dot Matrix Game
+DEF BOOTUP_A_CGB    EQU $11 ; Color GameBoy
+DEF BOOTUP_A_MGB    EQU $FF ; Mini GameBoy (Pocket GameBoy)
+
+; if a=BOOTUP_A_CGB, bit 0 in b can be checked to determine if real CGB or
+; other system running in GBC mode
+DEF BOOTUP_B_CGB    EQU %00000000
+DEF BOOTUP_B_AGB    EQU %00000001   ; GBA, GBA SP, Game Boy Player, or New GBA SP
+
+
+;***************************************************************************
+;*
+;* Cart related
+;*
+;***************************************************************************
+
+; $0143 Color GameBoy compatibility code
+DEF CART_COMPATIBLE_DMG     EQU $00
+DEF CART_COMPATIBLE_DMG_GBC EQU $80
+DEF CART_COMPATIBLE_GBC     EQU $C0
+
+; $0146 GameBoy/Super GameBoy indicator
+DEF CART_INDICATOR_GB       EQU $00
+DEF CART_INDICATOR_SGB      EQU $03
+
+; $0147 Cartridge type
+DEF CART_ROM                     EQU $00
+DEF CART_ROM_MBC1                EQU $01
+DEF CART_ROM_MBC1_RAM            EQU $02
+DEF CART_ROM_MBC1_RAM_BAT        EQU $03
+DEF CART_ROM_MBC2                EQU $05
+DEF CART_ROM_MBC2_BAT            EQU $06
+DEF CART_ROM_RAM                 EQU $08
+DEF CART_ROM_RAM_BAT             EQU $09
+DEF CART_ROM_MMM01               EQU $0B
+DEF CART_ROM_MMM01_RAM           EQU $0C
+DEF CART_ROM_MMM01_RAM_BAT       EQU $0D
+DEF CART_ROM_MBC3_BAT_RTC        EQU $0F
+DEF CART_ROM_MBC3_RAM_BAT_RTC    EQU $10
+DEF CART_ROM_MBC3                EQU $11
+DEF CART_ROM_MBC3_RAM            EQU $12
+DEF CART_ROM_MBC3_RAM_BAT        EQU $13
+DEF CART_ROM_MBC5                EQU $19
+DEF CART_ROM_MBC5_BAT            EQU $1A
+DEF CART_ROM_MBC5_RAM_BAT        EQU $1B
+DEF CART_ROM_MBC5_RUMBLE         EQU $1C
+DEF CART_ROM_MBC5_RAM_RUMBLE     EQU $1D
+DEF CART_ROM_MBC5_RAM_BAT_RUMBLE EQU $1E
+DEF CART_ROM_MBC7_RAM_BAT_GYRO   EQU $22
+DEF CART_ROM_POCKET_CAMERA       EQU $FC
+DEF CART_ROM_BANDAI_TAMA5        EQU $FD
+DEF CART_ROM_HUDSON_HUC3         EQU $FE
+DEF CART_ROM_HUDSON_HUC1         EQU $FF
+
+; $0148 ROM size
+; these are kilobytes
+DEF CART_ROM_32KB   EQU $00 ; 2 banks
+DEF CART_ROM_64KB   EQU $01 ; 4 banks
+DEF CART_ROM_128KB  EQU $02 ; 8 banks
+DEF CART_ROM_256KB  EQU $03 ; 16 banks
+DEF CART_ROM_512KB  EQU $04 ; 32 banks
+DEF CART_ROM_1024KB EQU $05 ; 64 banks
+DEF CART_ROM_2048KB EQU $06 ; 128 banks
+DEF CART_ROM_4096KB EQU $07 ; 256 banks
+DEF CART_ROM_8192KB EQU $08 ; 512 banks
+DEF CART_ROM_1152KB EQU $52 ; 72 banks
+DEF CART_ROM_1280KB EQU $53 ; 80 banks
+DEF CART_ROM_1536KB EQU $54 ; 96 banks
+
+; $0149 SRAM size
+; these are kilobytes
+DEF CART_SRAM_NONE  EQU 0
+DEF CART_SRAM_2KB   EQU 1 ; 1 incomplete bank
+DEF CART_SRAM_8KB   EQU 2 ; 1 bank
+DEF CART_SRAM_32KB  EQU 3 ; 4 banks
+DEF CART_SRAM_128KB EQU 4 ; 16 banks
+
+DEF CART_SRAM_ENABLE  EQU $0A
+DEF CART_SRAM_DISABLE EQU $00
+
+; $014A Destination code
+DEF CART_DEST_JAPANESE     EQU $00
+DEF CART_DEST_NON_JAPANESE EQU $01
+
+
+;***************************************************************************
+;*
+;* Keypad related
+;*
+;***************************************************************************
+
+DEF PADF_DOWN   EQU $80
+DEF PADF_UP     EQU $40
+DEF PADF_LEFT   EQU $20
+DEF PADF_RIGHT  EQU $10
+DEF PADF_START  EQU $08
+DEF PADF_SELECT EQU $04
+DEF PADF_B      EQU $02
+DEF PADF_A      EQU $01
+
+DEF PADB_DOWN   EQU $7
+DEF PADB_UP     EQU $6
+DEF PADB_LEFT   EQU $5
+DEF PADB_RIGHT  EQU $4
+DEF PADB_START  EQU $3
+DEF PADB_SELECT EQU $2
+DEF PADB_B      EQU $1
+DEF PADB_A      EQU $0
+
+
+;***************************************************************************
+;*
+;* Screen related
+;*
+;***************************************************************************
+
+DEF SCRN_X    EQU 160 ; Width of screen in pixels
+DEF SCRN_Y    EQU 144 ; Height of screen in pixels
+DEF SCRN_X_B  EQU 20  ; Width of screen in bytes
+DEF SCRN_Y_B  EQU 18  ; Height of screen in bytes
+
+DEF SCRN_VX   EQU 256 ; Virtual width of screen in pixels
+DEF SCRN_VY   EQU 256 ; Virtual height of screen in pixels
+DEF SCRN_VX_B EQU 32  ; Virtual width of screen in bytes
+DEF SCRN_VY_B EQU 32  ; Virtual height of screen in bytes
+
+
+;***************************************************************************
+;*
+;* OAM related
+;*
+;***************************************************************************
+
+; OAM attributes
+; each entry in OAM RAM is 4 bytes (sizeof_OAM_ATTRS)
+RSRESET
+DEF OAMA_Y              RB  1   ; y pos
+DEF OAMA_X              RB  1   ; x pos
+DEF OAMA_TILEID         RB  1   ; tile id
+DEF OAMA_FLAGS          RB  1   ; flags (see below)
+DEF sizeof_OAM_ATTRS    RB  0
+
+DEF OAM_COUNT           EQU 40  ; number of OAM entries in OAM RAM
+
+; flags
+DEF OAMF_PRI        EQU %10000000 ; Priority
+DEF OAMF_YFLIP      EQU %01000000 ; Y flip
+DEF OAMF_XFLIP      EQU %00100000 ; X flip
+DEF OAMF_PAL0       EQU %00000000 ; Palette number; 0,1 (DMG)
+DEF OAMF_PAL1       EQU %00010000 ; Palette number; 0,1 (DMG)
+DEF OAMF_BANK0      EQU %00000000 ; Bank number; 0,1 (GBC)
+DEF OAMF_BANK1      EQU %00001000 ; Bank number; 0,1 (GBC)
+
+DEF OAMF_PALMASK    EQU %00000111 ; Palette (GBC)
+
+DEF OAMB_PRI        EQU 7 ; Priority
+DEF OAMB_YFLIP      EQU 6 ; Y flip
+DEF OAMB_XFLIP      EQU 5 ; X flip
+DEF OAMB_PAL1       EQU 4 ; Palette number; 0,1 (DMG)
+DEF OAMB_BANK1      EQU 3 ; Bank number; 0,1 (GBC)
+
+
+;*
+;* Nintendo scrolling logo
+;* (Code won't work on a real GameBoy)
+;* (if next lines are altered.)
+MACRO NINTENDO_LOGO
+    DB  $CE,$ED,$66,$66,$CC,$0D,$00,$0B,$03,$73,$00,$83,$00,$0C,$00,$0D
+    DB  $00,$08,$11,$1F,$88,$89,$00,$0E,$DC,$CC,$6E,$E6,$DD,$DD,$D9,$99
+    DB  $BB,$BB,$67,$63,$6E,$0E,$EC,$CC,$DD,$DC,$99,$9F,$BB,$B9,$33,$3E
+ENDM
+
+; Deprecated constants. Please avoid using.
+
+DEF IEF_LCDC   EQU %00000010 ; LCDC (see STAT)
+
+    ENDC ;HARDWARE_INC

gb/lib/macros.inc

@@ -0,0 +1,179 @@
+MACRO MemCopy
+	ld hl, \1
+	ld de, \2
+	ld bc, \2_end - \2 
+.loop\@	
+	ld a, [de]
+	ld [hli], a
+	inc de
+	dec bc
+	ld a, b
+	or a, c
+	jp nz, .loop\@
+ENDM
+
+MACRO LoadTiles
+	MemCopy _VRAM9000, tiles
+ENDM
+
+MACRO MemClear
+	ld hl, \1
+	ld bc, \2
+.loop\@
+	xor a
+	ldi [hl], a
+	dec bc
+	ld a, b
+	or a, c
+	jp nz, .loop\@
+ENDM
+
+MACRO ClearOAM
+	MemClear _OAMRAM, $A0
+ENDM
+
+MACRO ClearScreen
+      MemClear _SCRN0, _SCRN1 - _SCRN0
+      MemClear _SCRN1, _SCRN1 - _SCRN0
+ENDM
+
+MACRO PrintString
+      MemCopy (_SCRN0 + (\3 << 5) + \2), \1
+ENDM
+
+MACRO PrintByteHex
+      ld hl, \1
+      ld a, [hl]
+      and a, $F0
+      swap a
+      add a, "0" 
+      cp a, ":"
+      jr c, .high_carry\@
+      add a, "A" - "0" - 10
+.high_carry\@
+      ld b, a
+
+      ld a, [hl]
+      and a, $0F
+      add a, "0" 
+      cp a, ":"
+      jr c, .low_carry\@
+      add a, "A" - "0" - 10
+.low_carry\@
+      ld c, a
+      ld hl, print_byte_hex_string
+      ld a, b
+      ldi [hl], a
+      ld a, c
+      ld [hl], a
+
+      PrintString print_byte_hex_string, \2, \3
+ENDM
+
+MACRO PrintByte
+	ld hl, \1
+	xor a
+	ld b, a
+	ld c, a
+	ld a, [hl]
+.hundreds\@
+	cp a, 100
+	jr c, .hundreds_done\@
+	sub a, 100
+	inc b
+	jr .hundreds\@
+.hundreds_done\@
+
+.tens\@
+	cp a, 10
+	jr c, .tens_done\@
+	sub a, 10
+	inc c
+	jr .tens\@
+.tens_done\@
+
+	ld d, a
+
+	ld hl, print_byte_string
+	ld a, b
+	add a, "0"
+	ldi [hl], a
+	ld a, c
+	add a, "0"
+	ldi [hl], a
+	ld a, d
+	add a, "0"
+	ldi [hl], a
+
+	PrintString print_byte_string, \2, \3
+ENDM
+
+MACRO StartInit
+	; Shut down audio circuitry
+	ld a, 0
+	ldh [rNR52], a
+
+	; Do not turn the LCD off outside of VBlank
+WaitVBlank:
+	ldh a, [rLY]
+	cp 144
+	jp c, WaitVBlank
+
+	; Turn the LCD off
+	ld a, 0
+	ldh [rLCDC], a
+
+	;; Window setup
+	ld a, 30
+	ldh [rWX], a
+	ld a, 115
+	
+	ldh [rWY], a
+ENDM
+
+MACRO FinishInit
+	; Enable the interrupt handler
+	ld a, $0F
+	ldh [rIE], a
+
+	; During the first (blank) frame, initialize display registers
+	ld a, %11100100
+	ldh [rBGP], a
+
+	; Turn the LCD on
+	ld a, LCDCF_ON | LCDCF_BGON | LCDCF_WINON | LCDCF_WIN9C00 | LCDCF_OBJON | LCDCF_OBJ8 | LCDCF_BG8800
+	
+	ldh [rLCDC], a
+ENDM
+
+MACRO IncrementFrameCount
+	ld a, [current_frame]
+	inc a
+	ld [current_frame], a
+ENDM
+
+MACRO IncrementWord
+	ld a, [\1]
+	ld b, a
+	ld a, [\1 + 1]
+	ld c, a
+	inc bc
+	ld a, b
+	ld [\1], a
+	ld a, c
+	ld [\1 + 1], a
+ENDM
+
+SECTION "Macro HRAM", HRAM
+current_frame:	DS 2
+current_frame_end:
+
+input_index:	DS 2
+
+print_byte_hex_string:
+print_byte_string:	
+	DS 2
+print_byte_hex_string_end:
+	DS 1
+print_byte_string_end:	
+

gb/lib/tiles.asm

@@ -0,0 +1,5 @@
+SECTION "Tiles", ROM0
+tiles:
+INCBIN "lib/text.2bpp"
+tiles_end:	
+	

ruby/2016/1/problem.rb

@@ -0,0 +1,42 @@
+require "set"
+
+input = STDIN.read.chomp
+commands = input.split ", "
+
+position = [0, 0] # Cartesian coordinates, +x is right, +y is up
+direction = 0 # North I guess
+
+visited_positions = Set.new([position.clone])
+first_revisited_position = nil
+
+commands.each do |command|
+  turn = command[0] == "L" ? 1 : -1
+  distance = command[1..].to_i
+  direction += turn
+  direction = direction % 4
+
+  distance.times do
+  case direction
+  when 0
+    position[1] += 1
+  when 1
+    position[0] += 1
+  when 2
+    position[1] -= 1
+  when 3
+    position[0] -= 1
+  end
+
+  if !visited_positions.add?(position.clone)
+    if first_revisited_position.nil?
+      first_revisited_position = position.clone
+    end
+  end
+  end
+end
+
+part_1 = position.map(&:abs).sum
+part_2 = first_revisited_position.map(&:abs).sum
+
+puts "Part 1: #{part_1}"
+puts "Part 2: #{part_2}"

ruby/2016/2/problem.rb

@@ -0,0 +1,56 @@
+class DirectionString
+  attr_reader :string, :start_position
+
+  def initialize(string, start_position=[1, 1])
+    @string = string
+    @start_position = start_position
+  end
+
+  def final_position
+    return start_position if string.empty?
+
+    self.class.new(string[1..], next_position).final_position
+  end
+
+  def next_position
+    case string[0]
+    when "D"
+      [start_position[0], start_position[1] + 1]
+    when "U"
+      [start_position[0], start_position[1] - 1]
+    when "L"
+      [start_position[0] - 1, start_position[1]]
+    when "R"
+      [start_position[0] + 1, start_position[1]]
+    end.map{ |pos| pos.clamp(0, 2) }
+  end
+end
+
+def reduce(array, initial_value)
+  acc = initial_value
+  array.each do |value|
+    acc = yield(acc, value)
+  end
+  acc
+end
+
+input = STDIN.read.chomp
+direction_strings = input.split
+
+KEYPAD = [[ 1, 2, 3 ],
+          [ 4, 5, 6 ],
+          [ 7, 8, 9 ]]
+
+def keypad_digit(position)
+  x, y = position
+  KEYPAD[y][x]
+end
+
+digits = [] 
+direction_strings.inject([1, 1]) do |acc, x|
+  y = DirectionString.new(x, acc).final_position
+  digits << keypad_digit(y)
+  y
+end
+
+puts "Part 1: #{digits.join}"

ruby/2016/3/problem.rb

@@ -0,0 +1,48 @@
+class PotentialTriangle
+  attr_reader :sides
+
+  def initialize(line)
+    @sides = line.split.map(&:to_i)
+  end
+
+  %w[a b c].each_with_index do |side, index|
+    define_method("side_#{side}") do
+      sides[index]
+    end
+  end
+
+  def valid?
+    side_a_valid? && side_b_valid? && side_c_valid?
+  end
+
+  def side_a_valid?
+    side_a < side_b + side_c
+  end
+
+  def side_b_valid?
+    side_b < side_a + side_c
+  end
+
+  def side_c_valid?
+    side_c < side_b + side_a
+  end
+end
+
+input = STDIN.read.chomp
+potential_triangle_lines = input.split("\n")
+potential_triangles = potential_triangle_lines.map { |line| PotentialTriangle.new line }
+valid_triangles = potential_triangles.count(&:valid?)
+
+puts "Part 1: #{valid_triangles}"
+
+grouped_triangle_lines = potential_triangle_lines.join(" ").split.each_with_index.each_with_object([[], [], []]) do |item_index, groups|
+  item, index = item_index
+  groups[index % 3] << item
+  groups
+end
+
+sideways_triangle_lines = grouped_triangle_lines.flatten.each_slice(3).to_a.map { |tri| tri.join " " }
+sideways_triangles = sideways_triangle_lines.map { |line| PotentialTriangle.new line }
+valid_sideways_triangles = sideways_triangles.count(&:valid?)
+
+puts "Part 2: #{valid_sideways_triangles}"

ruby/2016/4/problem.rb

@@ -0,0 +1,36 @@
+class Room
+  attr_reader :name, :sector_id, :checksum
+
+  def initialize(string)
+    @name = string.split("-")[..-2].join("-")
+    @sector_id = string.split("-")[-1].split("[")[0].to_i
+    @checksum = string.split("[")[1][..-2]
+  end
+
+  def calculated_checksum
+    letter_counts.sort_by { |k, v| [-v, -k] }.map(&:first)[0...5].join
+  end
+
+  def real?
+    calculated_checksum == checksum
+  end
+
+  def letter_counts
+    (name.chars - ["-"]).group_by(&:itself).to_h { |k, v| [k, v.count] }
+  end
+
+  def rotated_name
+    1.upto(sector_id % 26).reduce(name) { |n, _| n.codepoints.map{ |c| ((((c + 1) - 97) % 26) + 97).chr }.join("") }
+  end
+end
+
+input = STDIN.read.chomp
+room_lines = input.split("\n")
+rooms = room_lines.map { |line| Room.new line }
+part_1 = rooms.select(&:real?).sum(&:sector_id)
+
+puts "Part 1: #{part_1}"
+
+part_2 = rooms.find { |room| room.rotated_name.include? "northpole" }.sector_id
+
+puts "Part 2: #{part_2}"

ruby/2016/5/problem.rb

@@ -0,0 +1,39 @@
+require "digest"
+
+input = STDIN.read.chomp
+salt = 0
+password = []
+
+loop do
+  digest = Digest::MD5.hexdigest("#{input}#{salt}")
+  if digest[0...5] == "00000"
+    password << digest[5]
+    puts password.join("")
+    break if password.length >= 8
+  end
+  salt += 1
+end
+
+part_1 = password.join("")
+
+puts "Part 1: #{part_1}"
+
+salt = 0
+to_solve = 8
+password = "--------"
+loop do
+  digest = Digest::MD5.hexdigest("#{input}#{salt}")
+  if digest[0...5] == "00000"
+    if digest[5].to_i.to_s == digest[5] && digest[5].to_i < 8 && password[digest[5].to_i] == "-"
+      password[digest[5].to_i] = digest[6]
+      to_solve -= 1
+      puts password
+    end
+    break if to_solve <= 0
+  end
+  salt += 1
+end
+
+part_2 = password
+
+puts "Part 2: #{part_2}"

ruby/2016/6/problem.rb

@@ -0,0 +1,23 @@
+input = STDIN.read.chomp
+columns = input
+           .split("\n")
+           .map{ |line| line.split("") }
+           .transpose
+
+part_1 = columns.map do |column|
+  column
+    .group_by(&:itself)
+    .sort_by { |k, v| v.count }
+    .last[0]
+end.join
+
+puts "Part 1: #{part_1}"
+
+part_2 = columns.map do |column|
+  column
+    .group_by(&:itself)
+    .sort_by { |k, v| v.count }
+    .first[0]
+end.join
+
+puts "Part 2: #{part_2}"

ruby/2016/7/problem.rb

@@ -0,0 +1,71 @@
+class String
+  def to_ip
+    IP.new self
+  end
+end
+
+class IP < String
+  def initialize(s)
+    super s
+  end
+
+  def supports_tls?
+    !has_abba_in_hypernet_sequences? && has_abba?
+  end
+
+  def abba?
+    self[0] == self[3] && self[2] == self[1] && self[0] != self[1]
+  end
+
+  def has_abba?
+    chars.each_cons(4).map(&:join).map(&:to_ip).any?(&:abba?)
+  end
+
+  def has_abba_in_hypernet_sequences?
+    hypernet_sequences.any? &:has_abba?
+  end
+
+  def hypernet_sequences
+    supernet_and_hypernet_sequences.each_with_index.select do |seq, i|
+      i % 2 == 1
+    end.map(&:first)
+  end
+
+  def supernet_sequences
+    supernet_and_hypernet_sequences.each_with_index.select do |seq, i|
+      i % 2 == 0
+    end.map(&:first)
+  end
+
+  def supernet_and_hypernet_sequences
+    split("[").map{ |chunk| chunk.split("]") }.flatten.map(&:to_ip)
+  end
+
+  def abas
+    @abas ||= chars.each_cons(3).select { |triple| triple[0] == triple[2] && triple[0] != triple[1] }.map(&:join).map(&:to_ip)
+  end
+
+  def bab?(abas_to_match)
+    abas_to_match.any? { |aba| aba[0] == self[1] && self[0] == aba[1] }
+  end
+
+  def babs(abas_to_match)
+    abas.select { |aba| aba.bab?(abas_to_match) }
+  end
+
+  def supports_ssl?
+    supernet_abas = supernet_sequences.map(&:abas).flatten
+    hypernet_sequences.any? { |seq| seq.babs(supernet_abas).length > 0 }
+  end
+end
+
+input = STDIN.read.chomp
+lines = input.split("\n").map(&:to_ip)
+
+part_1 = lines.count(&:supports_tls?)
+
+puts "Part 1: #{part_1}"
+
+part_2 = lines.count(&:supports_ssl?)
+
+puts "Part 2: #{part_2}"

ruby/2016/8/problem.rb

@@ -0,0 +1,217 @@
+class Command
+  def self.for(line)
+    if line.split.first == "rect"
+      RectCommand
+    elsif line.split[1] == "row"
+      RotateRowCommand
+    elsif line.split[1] == "column"
+      RotateColumnCommand
+    end.new line
+  end
+end
+
+class RectCommand < Command
+  attr_reader :width, :height
+
+  def initialize(line)
+    @width, @height = line.split.last.split("x").map(&:to_i)
+  end
+
+  def apply(screen)
+    screen.rect!(width, height)
+  end
+end
+
+class RotateRowCommand < Command
+  attr_reader :row, :by
+
+  def initialize(line)
+    @row = line.split[2].split("=")[1].to_i
+    @by = line.split[4].to_i
+  end
+
+  def apply(screen)
+    screen.rotate_row!(row, by)
+  end
+end
+
+class RotateColumnCommand < Command
+  attr_reader :column, :by
+
+  def initialize(line)
+    @column = line.split[2].split("=")[1].to_i
+    @by = line.split[4].to_i
+  end
+
+  def apply(screen)
+    screen.rotate_column!(column, by)
+  end
+end
+
+class Screen
+  attr_reader :pixels
+
+  def initialize
+    @pixels = Array.new(height) { Array.new(width, " ") }
+  end
+
+  def width
+    50
+  end
+
+  def height
+    6
+  end
+
+  def rect!(width, height)
+    width.times { |x| height.times { |y| pixels[y][x] = "#" } }
+  end
+
+  def rotate_row!(row, by)
+    by.times { rotate_row_once! row }
+  end
+
+  def rotate_row_once!(row)
+    last = pixels[row].pop
+    pixels[row].unshift(last)
+  end
+
+  def rotate_column!(column, by)
+    by.times { rotate_column_once! column }
+  end
+
+  def rotate_column_once!(column)
+    last = pixels[height - 1][column]
+    (height - 1).downto(1) do |y|
+      pixels[y][column] = pixels[y - 1][column]
+    end
+
+    pixels[0][column] = last
+  end
+
+  def print
+    puts pixels.map(&:join)
+  end
+
+  def lit_pixel_count
+    pixels.flatten.count { |pixel| pixel == "#" }
+  end
+end
+
+class ScreenLetter
+  attr_reader :pixels
+
+  def initialize(screen, position)
+    @pixels = screen.pixels.map { |line| line.slice(position * 5, 5) }
+  end
+
+  def print
+    puts pixels.map(&:join)
+    puts " "
+  end
+
+  def to_s
+    pixels.map(&:join).join("\n").to_s
+  end
+
+  def letter_value
+    case to_s
+    when LETTER_E.chomp
+      "E"
+    when LETTER_F.chomp
+      "F"
+    when LETTER_Y.chomp
+      "Y"
+    when LETTER_K.chomp
+      "K"
+    when LETTER_R.chomp
+      "R"
+    when LETTER_I.chomp
+      "I"
+    when LETTER_J.chomp
+      "J"
+    else
+      "?"
+    end
+  end
+end
+
+LETTER_E = <<-E
+#### 
+#    
+###  
+#    
+#    
+#### 
+E
+
+LETTER_F = <<-F
+#### 
+#    
+###  
+#    
+#    
+#    
+F
+
+LETTER_Y = <<-Y
+#   #
+#   #
+ # # 
+  #  
+  #  
+  #  
+Y
+
+LETTER_K = <<-K
+#  # 
+# #  
+##   
+# #  
+# #  
+#  # 
+K
+
+LETTER_R = <<-R
+###  
+#  # 
+#  # 
+###  
+# #  
+#  # 
+R
+
+LETTER_I = <<-I
+ ### 
+  #  
+  #  
+  #  
+  #  
+ ### 
+I
+
+LETTER_J = <<-J
+  ## 
+   # 
+   # 
+   # 
+#  # 
+ ##  
+J
+
+input = STDIN.read.chomp
+commands = input.split("\n").map { |line| Command.for line }
+screen = Screen.new
+commands.each { |command| command.apply screen }
+
+part_1 = screen.lit_pixel_count
+
+puts "Part 1: #{part_1}"
+
+letters = 0.upto(9).map do |position|
+  ScreenLetter.new screen, position
+end
+
+part_2 = letters.map(&:letter_value).join
+
+puts "Part 2: #{part_2}"