Paste: AoC 2024 Day 2

Author: erg
Mode: factor
Date: Mon, 2 Dec 2024 17:21:27
Plain Text | 
string-lines [ " " split [ string>number ] map ] map
[ [ [ < ] monotonic-split length 1 = ] filter ]
[ [ [ > ] monotonic-split length 1 = ] filter ] bi append
[ 2 <clumps> [ first2 - abs 3 <= ] all? ] filter
! 279


string-lines [ " " split [ string>number ] map ] map
[
  [ dup length <iota> [ remove-nth-of ] with map ] keep suffix
  [ [ [ < ] monotonic-split length 1 = ] filter ]
  [ [ [ > ] monotonic-split length 1 = ] filter ] bi append
  [ 2 <clumps> [ first2 - abs 3 <= ] all? ] any?
] filter
! 343

New Annotation

Summary:
Author:
Mode:
Body: