From 8c5101a598fdbf7d53c9265c0b7da39606c2d73e Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Mon, 14 Apr 2025 16:26:44 -0400 Subject: [PATCH] Cleanup org file --- p14/p14.org | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/p14/p14.org b/p14/p14.org index 478db7e..b28d584 100644 --- a/p14/p14.org +++ b/p14/p14.org @@ -35,22 +35,15 @@ First parse with regex to make into a list the second part is... meh. try and filter frames and check them by some properties -#+begin_src emacs-lisp +#+begin_src emacs-lisp :results none (defun flip (p) (list (- w (car p) 1) (cadr p))) (defun symmetric-p (li) (eq (length (-intersection li (-map #'flip li))) (length li))) - - (setq frame-indices (-iota 1000)) #+end_src -#+RESULTS: -| 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | - #+begin_src emacs-lisp - ; (-map (lambda (time) (symmetric-p (--map (move (car it) (cadr it) time) data))) (-iota (* w h))) - (defun make-bg () (insert (apply #'concat (-repeat h (concat (concat (-repeat w ?. )) "\n")))))