Permalink
Switch branches/tags
Nothing to show
Commits on Dec 8, 2011
  1. who's who

    whalliburton committed Dec 8, 2011
    Thanks go out to the following for,
    
    Brit Butler  - the shortest solution to the POWER-OF-TWO-P problem
    Heow Goodman - PEACE, not high end German automobiles
  2. hall-of-programmers

    whalliburton committed Dec 8, 2011
    For a little competitive spirit.
  3. count-unique

    whalliburton committed Dec 7, 2011
    > (count-unique (random-booleans 100))  ; Your mileage may vary.
    ((T 44) (NIL 56))
    
    > (count-unique (random-booleans 100 3))
    ((T 30) (NIL 70))
    
    > (count-unique (collect 100 (random 10)))
    ((5 9) (7 15) (8 6) (2 13) (4 15) (0 11) (6 10) (9 10) (3 9) (1 2))
    
    > (reduce #'+ (mapcar #'second *))
    100
    
    > (count-unique (collect 20 (random-element '(fe fi fo fum))))
    ((FO 5) (FI 5) (FE 3) (FUM 7))
  4. collect

    whalliburton committed Dec 7, 2011
    > (collect 10 (random 10))
    (7 8 9 0 5 7 3 1 2 8)
    
    > (collect 10 (random-booleans 2))
    ((NIL T) (NIL T) (NIL NIL) (NIL NIL) (T T) (T NIL) (T NIL) (NIL NIL) (T NIL) (NIL NIL))
    
    > (collect (random 10) (random 10))
    (4 2)
  5. website

    whalliburton committed Dec 7, 2011
    Prepare for launch...
    
    10
    
    9
    
    8
    
    7
    
    6
    
    ... main engine start ...
    
    5
    
    4
    
    3
    
    2
    
    1
    
    .....liftoff
    
    ............booster separation
    
    ...................................orbit.
  6. log

    whalliburton committed Dec 7, 2011
    The entire project log file can now be saved to disk for further
    perusal and distribution.
    
    > (save-log)
    79934 bytes written to "/emerald-city/academy/data/log.txt"
  7. git

    whalliburton committed Dec 7, 2011
    > (princ (git '("version")))
    git version 1.7.2.5
    
    > (princ (git '("count-objects")))
    958 objects, 3836 kilobytes
  8. with-output-to-data-file

    whalliburton committed Dec 7, 2011
    For easily saving printed output of any of the functions.
    
    > (with-output-to-data-file "happy.txt" (smile))
    80 bytes written to "/emerald-city/academy/data/happy.txt"
  9. sbcl-nuts-and-bolts

    whalliburton committed Dec 7, 2011
    > (princ (run-program-to-string "echo" '("Is" "anyone" "out" "there" "?")))
    
    Is anyone out there ?
    
    ;;; With the classic bsdgames installed...
    
    > (princ (run-program-to-string "morse" '("code")))
    
     daw dit daw dit
     daw daw daw
     daw dit dit
     dit
    
    > (princ (run-program-to-string "fortune" nil))
    
    You're currently going through a difficult transition period called "Life."
  10. asdf-lisp-files

    whalliburton committed Dec 7, 2011
    > (mapcar #'pathname-name (asdf-lisp-files :academy))
    
    ("packages" "help" "classic-utilities" "pretty-printing" "unicode" "randomness"
     "petals-around-the-rose" "math" "hilbert-space-filling-curve" "war" "drawing"
     "life" "nuts-and-bolts" "probability" "cellular-automata" "i-ching" "emacs" "remember"
     "turtle-graphics" "welcome")
  11. turtle-graphics

    whalliburton committed Dec 7, 2011
    > (turtle-race)
    
    squares
    
      █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
      █                     █
      █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   █
      █                 █   █
      █▀▀▀▀▀▀▀▀▀▀▀▀▀█   █   █
      █             █   █   █
      █▀▀▀▀▀▀▀▀▀█   █   █   █
      █         █   █   █   █
      █▀▀▀▀▀█   █   █   █   █
      █     █   █   █   █   █
      █▀█   █   █   █   █   █
      ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
    
    squares-rotated
    
                   ▄
                 ▄▀▀▄
               ▄▀▄   ▀▄
             ▄▀   ▀▄   ▀▄
           ▄▀ ▀▄    ▀▄   ▀▄
         ▄▀▄    ▀▄    ▀▄   ▀▄
       ▄█   ▀▄    ▀▄    ▀▄   ▀▄
      ▀▄▀▀   ▄▀    ▄▀    ▄▀   ▄▀
        ▀▄ ▄▀    ▄▀    ▄▀   ▄▀
          ▀▄   ▄▀    ▄▀   ▄▀
            ▀▄▀    ▄▀   ▄▀
              ▀▄ ▄▀   ▄▀
                ▀▄  ▄▀
                  ▀█
    
    triangle
    
      █▀▄▄
      █   ▀▀▄
      █      ▀▀▄▄
      █          ▀▀▄
      █             ▀▀▄▄
      █                 ▀▀▄
      █                 ▄▄▀▀
      █              ▄▀▀
      █          ▄▄▀▀
      █       ▄▀▀
      █   ▄▄▀▀
      █▄▀▀
      ▀
    
    circle
    
            ▄▄▀▀▀▀▀▀▀▀▀▀▄▄
          ▄▀              ▀▄
        ▄▀                  ▀▄
       █                     █
      ▄▀                      █
      █                       ▀▄
      █                        █
      █                       ▄▀
      ▀▄                      █
       █                     █
        ▀▄                  ▄▀
          ▀▀▄            ▄▀▀
             ▀▀▄▄▄▄▄▄▄▀▀▀
    
    spiral
    
                ▄▄▄▄▄▄▄▄▄▄
              ▄▀          ▀▀▄
            ▄▀               ▀▀▄
          ▄▀    ▄▄▀▀▀▀▀▀▀▄▄     █
        ▄▀    ▄▀           ▀▄   ▀▄
        █    █     ▄▄▄▄▄     ▀▄  ▀▄
       ▄▀   █    ▄▀     ▀▄    █   ▀▄
       █    █    █        █   █    ▀
       █    █    ▀        █   ▀▄   █
       █    ▀▄           ▄▀   █    █
        █     ▀▄       ▄█    ▄▀   █
        ▀▄▄     ▀▀▀▀▄▀▀     ▄█    █
           ▀▄▄            ▄▀      ▀
              ▀▄        ▄▀
                ▀▀▀▀▀▀▀▀
    
    box-spiral
    
                         ▄▄▄
                        █   ▀▀▀▄▄
                       █         ▀▀▀▄▄▄
                      ▄▀  ▄▄▄▄         ▀▀▄▄▄
                      █  █    ▀▀▀▄▄▄        ▀▀▄▄▄
                     █  ▄▀          ▀▀▀▄▄▄       ▀▀▀▄▄
                    ▄▀  █   ▄▄▄▄▄         ▀▀▀▀▄▄▄     ▀▀▀▄▄▄
                    █  █   █     ▀▀▀▀▀▄▄▄▄       ▀▀▀▄▄▄     ▀▀▄▄▄
                   █   █   █              ▀▀▀▀▀▄▄▄▄▄   ▀▀▀▄▄▄    ▀▀▄
                  ▄▀  █   █  ▄▀▀▀▀▀▀▀▄▄▄▄▄▄▄        ▀▀▀▀▄   ▄▀    █
                  █  ▄▀   █  █              ▀▀▀▀▀▀▄    █    █    █
                 █   █   █   █   ▄▄▄▄▄▄▄▄▄▄▄▄    █    ▄▀   █    ▄▀
                ▄▀  ▄▀   █  ▄▀  █           ▄▀   █    █   ▄▀   ▄▀
                █   █   ▄▀  █   █   ▄▄▄▄▄▄  █   ▄▀   ▄▀   █    █
               █   █    █   █   █   █    █  █   █    █   █    █
              ▄▀  ▄▀   ▄▀  ▄▀   █   ▀    █  █   █   ▄▀  ▄▀   █
              █   █    █   █    █        █  █  ▄▀   █   █   ▄▀
             █   ▄▀   ▄▀   █    ▀▀▀▀▀▀▀▀▀▀  █  █   ▄▀  █    █
            ▄▀   █    █    █▄▄▄▄▄▄▄▄        █  █   █  ▄▀   █
            █   █     █▄▄▄▄         ▀▀▀▀▀▀▀▀█ ▄▀  █   █   █
           █    █▄▄▄       ▀▀▀▀▀▄▄▄▄▄         █   █  █   ▄▀
     ▀▀▀▄▄ ▀▀▀▄▄▄   ▀▀▀▀▄▄▄▄         ▀▀▀▀▀▄▄▄▄█  █  ▄▀  ▄▀
          ▀▀▀▄▄  ▀▀▀▄▄▄     ▀▀▀▀▄▄▄▄          ▀  █  █   █
               ▀▀▄▄▄   ▀▀▀▄▄▄       ▀▀▀▀▄▄▄▄    █  █   █
                    ▀▀▄▄     ▀▀▀▄▄▄         ▀▀▀▀█ ▄▀  ▄▀
                        ▀▀▀▄▄      ▀▀▀▄▄▄         █  ▄▀
                             ▀▀▀▄▄       ▀▀▀▄▄▄  █   █
                                  ▀▀▄▄▄        ▀▀█  █
                                       ▀▀▄▄        █
                                           ▀▀▀▄▄  ▄▀
                                                ▀▀█
    
    star
    
                        █
                        █▄
                        █▀▄                  ▄▄
                        █ ▀▄               ▄▀█
                        █  ▀▄           ▄▀▀ █
                        █   ▀▄        ▄▀   █
                        █    ▀▄    ▄▀▀    █
       ▀▀█▀▀▄▄▄▄        █     ▀▄ ▄▀      █
          ▀▄▄   ▀▀▀▀▀▄▄▄█     ▄▀█       █
             ▀▄         █▀▀▀██▄▄█▄     █
               ▀▄▄      █▄▀▀     ▀█▀▀▀█▄▄▄
                  ▀▄   ▄█         ▀▄ █    ▀▀▀▀▀▄▄▄▄
                    ███ █          ▀█              ████▄
                  ▄▀   ▀█          █▀▄    ▄▄▄▄▄▀▀▀▀
               ▄▀▀      █▀▄▄      █▄▄██▀▀▀
             ▄▀         █▄▄▄██▀▀▀█    ▀▄
          ▄▀▀   ▄▄▄▄▄▀▀▀█     ▀▄█      ▀▄
        ▄█▄▄▀▀▀▀        █      █ ▀▄     ▀▄
       ▀                █     █    ▀▄▄   ▀▄
                        █    █        ▀▄  ▀▄
                        █   █           ▀▄▄▀▄
                        █  █               ▀█▄
                        █ █                  ▀▄
                        ██
                        █
                        ▀
    
    + turtle
  12. peace

    whalliburton committed Dec 6, 2011
    > (peace)
    
        ▄▄▄▄▄
      ▄▀  █  ▀▄
     █    █    █
     █   ▄█▄   █
     ▀▄▄▀ █ ▀▄▄▀
       ▀▄▄█▄▄▀
Commits on Dec 7, 2011
  1. bullseye

    whalliburton committed Dec 6, 2011
    > (bullseye :filled t)
    
                           ▄▄▄▄███████████▄▄▄▄
                      ▄▄▄███████████████████████▄▄▄
                   ▄▄██████████▀▀▀▀▀▀▀▀▀▀▀██████████▄▄
                 ▄███████▀▀▀                 ▀▀▀███████▄
               ▄██████▀      ▄▄▄█████████▄▄▄      ▀██████▄
             ▄█████▀▀    ▄█████████████████████▄    ▀▀█████▄
           ▄█████▀    ▄█████████▀▀▀▀▀▀▀▀▀█████████▄    ▀█████▄
          ▄█████▀   ▄██████▀▀               ▀▀██████▄   ▀█████▄
         █████▀   ▄██████▀    ▄▄▄███████▄▄▄    ▀██████▄   ▀█████
        ▄████▀   ▄█████▀   ▄▄███████████████▄▄   ▀█████▄   ▀████▄
       ▄█████   █████▀   ▄███████▀▀▀▀▀▀▀███████▄   ▀█████   █████▄
       █████   ▄████▀   ▄█████▀           ▀█████▄   ▀████▄   █████
      ▄████▀   █████   █████▀    ▄█████▄    ▀█████   █████   ▀████▄
      █████   █████   ▄████▀   ▄█████████▄   ▀████▄   █████   █████
      █████   █████   █████   █████▀▀▀█████   █████   █████   █████
      █████   █████   █████   █████   █████   █████   █████   █████
      █████   █████   █████   ▀███████████▀   █████   █████   █████
      █████   ▀████▄   █████    ▀███████▀    █████   ▄████▀   █████
       █████   █████   ▀█████▄    ▀▀▀▀▀    ▄█████▀   █████   █████
       █████▄   █████    ██████▄▄       ▄▄██████    █████   ▄█████
        █████   ▀█████▄   ▀███████████████████▀   ▄█████▀   █████
         █████    ██████▄    ▀█████████████▀    ▄██████    █████
         ▀█████▄   ▀██████▄      ▀▀▀▀▀▀▀      ▄██████▀   ▄█████▀
           ██████    ▀███████▄▄▄         ▄▄▄███████▀    ██████
            ▀█████▄    ▀▀███████████████████████▀▀    ▄█████▀
              ▀██████▄    ▀▀▀███████████████▀▀▀    ▄██████▀
                ▀██████▄▄       ▀▀▀▀▀▀▀▀▀       ▄▄██████▀
                  ▀█████████▄▄▄           ▄▄▄█████████▀
                     ▀█████████████████████████████▀
                         ▀▀███████████████████▀▀
                               ▀▀▀▀▀▀▀▀▀▀▀
  2. multiplication-table

    whalliburton committed Dec 6, 2011
    > (multiplication-table)
    
     1   2   3   4   5   6    7    8    9   10   11   12   13   14   15   16
     2   4   6   8  10  12   14   16   18   20   22   24   26   28   30   32
     3   6   9  12  15  18   21   24   27   30   33   36   39   42   45   48
     4   8  12  16  20  24   28   32   36   40   44   48   52   56   60   64
     5  10  15  20  25  30   35   40   45   50   55   60   65   70   75   80
     6  12  18  24  30  36   42   48   54   60   66   72   78   84   90   96
     7  14  21  28  35  42   49   56   63   70   77   84   91   98  105  112
     8  16  24  32  40  48   56   64   72   80   88   96  104  112  120  128
     9  18  27  36  45  54   63   72   81   90   99  108  117  126  135  144
    10  20  30  40  50  60   70   80   90  100  110  120  130  140  150  160
    11  22  33  44  55  66   77   88   99  110  121  132  143  154  165  176
    12  24  36  48  60  72   84   96  108  120  132  144  156  168  180  192
    13  26  39  52  65  78   91  104  117  130  143  156  169  182  195  208
    14  28  42  56  70  84   98  112  126  140  154  168  182  196  210  224
    15  30  45  60  75  90  105  120  135  150  165  180  195  210  225  240
    16  32  48  64  80  96  112  128  144  160  176  192  208  224  240  256
  3. print-table

    whalliburton committed Dec 6, 2011
    > (loop for args in '(nil (:gap "$$") (:align :left))
            do (apply #'print-table
                      (loop for x from 1 to 6
                            collect
                               (loop for x from 1 to 6
                                     collect (random-do (random 100000)
                                                        (random-element '(bull bear)))))
                      args)
               (terpri))
    
     BEAR   BEAR   BULL   BULL  87984  84947
     BEAR  69563  44895  29735   BEAR  85831
    72832   BULL   BULL  77389  82439  86364
     BULL   BULL   BEAR   BULL   BULL   BULL
     BULL   BEAR   BEAR  73444   BEAR  43194
    87523  33990  24603   BEAR  63915   BULL
    
     BEAR$$67880$$64999$$ BEAR$$66444$$88571
    29536$$ BEAR$$28664$$ BEAR$$96143$$ BULL
     BEAR$$70373$$82057$$85997$$99603$$ 3351
    47959$$ BEAR$$ BEAR$$73129$$ 8184$$ BULL
    43649$$97104$$ BEAR$$ BEAR$$ BULL$$ BULL
     BULL$$ BULL$$ BEAR$$68957$$ BEAR$$ BEAR
    
    65931  8108   72867  BULL   68808  34300
    7998   87740  BEAR   BULL   BEAR   15545
    55447  86670  BEAR   BULL   BULL   BULL
    79437  BEAR   BEAR   43880  23451  BEAR
    BULL   9323   75928  52182  BEAR   2799
    BEAR   80488  BULL   65464  BULL   58910
    
    Ugly, ain't it!
  4. fill-bitmap

    whalliburton committed Dec 5, 2011
    > (sun)
                               ▄▄▄▄▄▄▄▄▄▄▄
                        ▄▄▄███████████████████▄▄▄
                    ▄▄█████████████████████████████▄▄
                  ▄███████████████████████████████████▄
               ▄█████████████████████████████████████████▄
             ▄█████████████████████████████████████████████▄
            █████████████████████████████████████████████████
          ▄███████████████████████████████████████████████████▄
         ███████████████████████████████████████████████████████
        █████████████████████████████████████████████████████████
       ███████████████████████████████████████████████████████████
      ▄███████████████████████████████████████████████████████████▄
      █████████████████████████████████████████████████████████████
     ▄█████████████████████████████████████████████████████████████▄
     ███████████████████████████████████████████████████████████████
     ███████████████████████████████████████████████████████████████
     ███████████████████████████████████████████████████████████████
     ███████████████████████████████████████████████████████████████
     ███████████████████████████████████████████████████████████████
      █████████████████████████████████████████████████████████████
      █████████████████████████████████████████████████████████████
       ███████████████████████████████████████████████████████████
       ▀█████████████████████████████████████████████████████████▀
        ▀███████████████████████████████████████████████████████▀
         ▀█████████████████████████████████████████████████████▀
           ▀█████████████████████████████████████████████████▀
            ▀███████████████████████████████████████████████▀
              ▀███████████████████████████████████████████▀
                ▀▀█████████████████████████████████████▀▀
                   ▀█████████████████████████████████▀
                      ▀▀█████████████████████████▀▀
                           ▀▀▀▀███████████▀▀▀▀
  5. remember

    whalliburton committed Dec 5, 2011
    A simple notebook of very special super secret important things to
    entrust to the well-being and safe-keeping of a machine.
    
    > (remember "I think,")
    Noted.
    
    > (remember "therefore")
    Noted.
    
    > (remember "I am.")
    Noted.
    
    > (remember)
    I think,
    therefore
    I am.
  6. draw-line

    whalliburton committed Dec 5, 2011
    > (sunbeam)
    
    █      ▄▀      ▄▀      ▄▀      ▄▀      ▄▀      ▄▀      ▄▀     ▄▀
    █      █       █      ▄▀      █       █      ▄▀      ▄▀     ▄▀
    █      █      █       █      █      ▄▀      █      ▄▀     ▄▀
    █      █      █      █      █      ▄▀     ▄▀     ▄▀     ▄▀
    █     █      █      █      █      █      █      █     ▄▀     ▄▀▀
    █     █      █     ▄▀     █      █     ▄▀     ▄▀    ▄▀     ▄▀
    █     █     █      █     █     ▄▀     █     ▄▀    ▄▀     ▄▀
    █     █     █     █     █     ▄▀    ▄▀    ▄▀    ▄▀    ▄▀▀
    █    █     █     █     █     █     █    ▄▀    ▄▀    ▄▀       ▄▀▀
    █    █     █    ▄▀    █    ▄▀    ▄▀    ▄▀   ▄▀    ▄▀      ▄▀▀
    █    █    █     █    █    ▄▀    █    ▄▀   ▄▀   ▄▄▀     ▄▄▀
    █    █    █    █    █    ▄▀   ▄▀   ▄▀   ▄▀   ▄▀      ▄▀
    █   █    █    █    █    █   ▄▀   ▄▀   ▄▀   ▄▀     ▄▀▀       ▄▄▀▀
    █   █    █   ▄▀   █   ▄▀   ▄▀   █   ▄▀   ▄▀    ▄▄▀       ▄▄▀
    █   █   █   ▄▀   █   ▄▀  ▄▀   ▄▀  ▄▀  ▄▀▀    ▄▀       ▄▀▀
    █   █   █   █   █   █   ▄▀  ▄▀  ▄▀  ▄▀    ▄▀▀      ▄▀▀
    █  █   █   █   █   █  ▄▀  ▄▀  ▄▀  ▄▀   ▄▄▀     ▄▄▀▀        ▄▄▀▀▀
    █  █   █  ▄▀  █  ▄▀  ▄▀ ▄▀  ▄▀ ▄▄▀   ▄▀     ▄▄▀        ▄▄▀▀
    █  █  █  ▄▀  █  ▄▀ ▄▀  ▄▀ ▄▀ ▄▀   ▄▀▀    ▄▄▀       ▄▄▀▀
    █  █  █  █  █  █  ▄▀ ▄▀ ▄▀ ▄▀  ▄▄▀    ▄▀▀      ▄▄▀▀
    █ █  █  █  █ ▄▀ ▄▀ ▄▀ ▄▀ ▄▀  ▄▀   ▄▄▀▀     ▄▄▀▀           ▄▄▄▀▀▀
    █ █  █ ▄▀ █ ▄▀ ▄▀▄▀ ▄▀▄▀▀ ▄▀▀  ▄▄▀     ▄▄▀▀          ▄▄▀▀▀
    █ █ █ ▄▀ █ ▄▀▄▀ █ ▄▀▄▀ ▄▄▀  ▄▄▀    ▄▄▀▀        ▄▄▄▀▀▀
    █ █ █ █ █ █ █ ▄▀▄▀▄▀ ▄▀  ▄▀▀   ▄▄▀▀       ▄▄▀▀▀
    ██ █ █ █▄▀▄▀▄▀▄█▄▀▄▀▀ ▄▀▀  ▄▄▀▀     ▄▄▄▀▀▀             ▄▄▄▄▀▀▀▀▀
    ██ ██ █▄▀█▄▀▄█▀▄▄▀▄▄▀▀ ▄▄▀▀    ▄▄▀▀▀           ▄▄▄▄▀▀▀▀
    ███▄▀██▄█▀▄█▀▄▀▄▄▀ ▄▄▀▀  ▄▄▄▀▀▀       ▄▄▄▄▄▀▀▀▀
    ███████▄███▀█▀▀▄▄▀▀ ▄▄▀▀▀     ▄▄▄▄▀▀▀▀
    ██████████▀█▄▀█▄▄▀▀▀  ▄▄▄▄▀▀▀▀                ▄▄▄▄▄▄▄▄▄▀▀▀▀▀▀▀▀▀
    ███████████▀▀█▄▄▄▀▀▀▀▀      ▄▄▄▄▄▄▄▄▄▀▀▀▀▀▀▀▀▀
    █████████▀███▄▄▄▄▄▄▀▀▀▀▀▀▀▀▀
    ██████████▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  7. draw-circle

    whalliburton committed Dec 5, 2011
    > (bullseye)
    
                           ▄▄▄▄▀▀▀▀▀▀▀▀▀▀▀▄▄▄▄
                      ▄▄▄▀▀                   ▀▀▄▄▄
                   ▄▄▀      ▄▄▄▀▀▀▀▀▀▀▀▀▀▀▄▄▄      ▀▄▄
                 ▄▀    ▄▄▀▀▀                 ▀▀▀▄▄    ▀▄
               ▄▀    ▄▀      ▄▄▄▀▀▀▀▀▀▀▀▀▄▄▄      ▀▄    ▀▄
             ▄▀   ▄▀▀    ▄▀▀▀               ▀▀▀▄    ▀▀▄   ▀▄
           ▄▀   ▄▀    ▄▀▀    ▄▄▄▀▀▀▀▀▀▀▀▀▄▄▄    ▀▀▄    ▀▄   ▀▄
          ▄▀   ▄▀   ▄▀    ▄▀▀               ▀▀▄    ▀▄   ▀▄   ▀▄
         █   ▄▀   ▄▀    ▄▀    ▄▄▄▀▀▀▀▀▀▀▄▄▄    ▀▄    ▀▄   ▀▄   █
        ▄▀  ▄▀   ▄▀   ▄▀   ▄▄▀             ▀▄▄   ▀▄   ▀▄   ▀▄  ▀▄
       ▄▀   █   █   ▄▀   ▄▀    ▄▄▀▀▀▀▀▀▀▄▄    ▀▄   ▀▄   █   █   ▀▄
       █   █   ▄▀  ▄▀   ▄▀   ▄▀           ▀▄   ▀▄   ▀▄  ▀▄   █   █
      ▄▀  ▄▀   █   █   █   ▄▀    ▄▀▀▀▀▀▄    ▀▄   █   █   █   ▀▄  ▀▄
      █   █   █   █   ▄▀  ▄▀   ▄▀       ▀▄   ▀▄  ▀▄   █   █   █   █
      █   █   █   █   █   █   █   ▄▀▀▀▄   █   █   █   █   █   █   █
      █   █   █   █   █   █   █   █   █   █   █   █   █   █   █   █
      █   █   █   █   █   █   ▀▄   ▀▀▀   ▄▀   █   █   █   █   █   █
      █   █   ▀▄  ▀▄   █   █    ▀▄     ▄▀    █   █   ▄▀  ▄▀   █   █
       █   █   █   █   ▀▄   ▀▄    ▀▀▀▀▀    ▄▀   ▄▀   █   █   █   █
       █   ▀▄   █   █    █    ▀▄▄       ▄▄▀    █    █   █   ▄▀   █
        █   █   ▀▄   ▀▄   ▀▄▄    ▀▀▀▀▀▀▀    ▄▄▀   ▄▀   ▄▀   █   █
         █   █    █    ▀▄    ▀▄▄▄       ▄▄▄▀    ▄▀    █    █   █
         ▀▄   ▀▄   ▀▄    ▀▄      ▀▀▀▀▀▀▀      ▄▀    ▄▀   ▄▀   ▄▀
           █    █    ▀▄    ▀▀▄▄▄         ▄▄▄▀▀    ▄▀    █    █
            ▀▄   ▀▄    ▀▀▄      ▀▀▀▀▀▀▀▀▀      ▄▀▀    ▄▀   ▄▀
              ▀▄   ▀▀▄    ▀▀▀▄▄▄         ▄▄▄▀▀▀    ▄▀▀   ▄▀
                ▀▄    ▀▄▄       ▀▀▀▀▀▀▀▀▀       ▄▄▀    ▄▀
                  ▀▄▄    ▀▀▀▄▄▄           ▄▄▄▀▀▀    ▄▄▀
                     ▀▄▄▄      ▀▀▀▀▀▀▀▀▀▀▀      ▄▄▄▀
                         ▀▀▄▄▄▄           ▄▄▄▄▀▀
                               ▀▀▀▀▀▀▀▀▀▀▀
  8. eval-in-emacs

    whalliburton committed Dec 5, 2011
    For emacs users only. Enabling them to execute code in the slime
    connected emacs from the lisp.
    
    > (eval-in-emacs '(version))
    "GNU Emacs 23.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.20.1)
     of 2010-12-11 on brahms, modified by Debian"
    
    > (eval-in-emacs '(+ 1 2 3))
    6
    
    Useful for opening the editor on exising or new files.
    
    > (eval-in-emacs '(progn (find-file "/tmp/foo123") nil))
    NIL
    
    Note that for EVAL-IN-EMACS to work you need to enable in
    emacs, generally in the ~/.emacs file:
    
      (setq slime-enable-evaluate-in-emacs t)
  9. i-ching

    whalliburton committed Dec 5, 2011
    > (i-ching t)
    
    ☰  heaven
    ☰  heaven
    ䷀  1  Ch'ien / The Creative
    
    ☱  lake
    ☵  water
    ䷮  47 K'un / Oppression (Exhaustion)
    
    > (hexagram-text 1)
    
    1.   Ch'ien / The Creative
    
         --------
         --------     above     Ch'ien The Creative, Heaven
         --------
         --------
         --------     below     Ch'ien The Creative, Heaven
         --------
    
    The Judgement
    
         The Creative works sublime success,
         Furthering through perseverance.
    
    The Image
    
         The movement of heaven is full of power.
         Thus the superior man makes himself strong and untiring.
    
    The Lines
    
         Nine at the beginning means:
         Hidden dragon. Do not act.
    
         Nine in the second place means:
         Dragon appearing in the field.
         It furthers one to see the great man.
    
         Nine in the third place means:
         All day long the superior man is creatively active.
         At nightfall his mind is beset with cares.
         Danger. No blame.
    
         Nine in the fourth place means:
         Wavering flight over the depths.
         No blame.
    
    ()   Nine in the fifth place means:
         Flying dragon in the heavens.
         It furthers one to see the great man.
    
         Nine at the top means:
         Arrogant dragon will have cause to repent.
    
         When all the lines are nines, it means:
         There appears a flight of dragons without heads.
         Good fortune.
  10. slurp-file

    whalliburton committed Dec 5, 2011
    Pay attention! Another useful utility is being shown here.
    
    "Slurping" refers to loading an entire file into memory at one call.
    
    > (slurp-file "/etc/passwd")
    "root0:0:root:/root:/bin/bash
    daemon1:1:daemon:/usr/sbin:/bin/sh
    ...
    prince:1000:1000:♃ ,,,:/home/prince:/bin/csh
    "
  11. plot-function

    whalliburton committed Dec 4, 2011
    > (visualize-math-functions)
    
    █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
    █                                            ▄▀                █
    █                                          ▄▀                  █
    █                                        ▄▀                    █
    █                                      ▄▀                      █
    █                                    ▄▀                        █
    █                                  ▄▀                          █
    █                                ▄▀                            █
    █                              ▄▀                              █
    █                            ▄▀                                █
    █                          ▄▀                                  █
    █                        ▄▀                                    █
    █                      ▄▀                                      █
    █                    ▄▀                                        █
    █                  ▄▀                                          █
    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
    
    █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
    █                                                              █
    █                                                              █
    █                                           ▄▄▄▀▀▀▄▄▄          █
    █                                       ▄▄▀▀         ▀▀▄▄      █
    █                                     ▄▀                 ▀▄    █
    █                                   ▄▀                     ▀▄  █
    █                                 ▄▀                         ▀▄█
    █▄                             ▄▀▀                             █
    █ ▀▄                         ▄▀                                █
    █   ▀▄                     ▄▀                                  █
    █     ▀▄                 ▄▀                                    █
    █       ▀▀▄▄         ▄▄▀▀                                      █
    █           ▀▀▀▄▄▄▀▀▀                                          █
    █                                                              █
    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
    
    █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
    █                                                              █
    █                                                              █
    █                           ▄▄▄▀▀▀▄▄▄                          █
    █                       ▄▄▀▀         ▀▀▄▄                      █
    █                     ▄▀                 ▀▄                    █
    █                   ▄▀                     ▀▄                  █
    █                 ▄▀                         ▀▄                █
    █              ▄▀▀                             ▀▄▄             █
    █            ▄▀                                   ▀▄           █
    █          ▄▀                                       ▀▄         █
    █        ▄▀                                           ▀▄       █
    █    ▄▄▀▀                                               ▀▀▄▄   █
    █▄▀▀▀                                                       ▀▀▀█
    █                                                              █
    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
    
    █▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
    █                                                              █
    █        ▀                               ▀                     █
    █       ▀                               ▀                      █
    █      ▀                               ▀                       █
    █    ▄▀                              ▄▀                        █
    █  ▄▀                              ▄▀                          █
    █▄▀                              ▄▀                            █
    █                               ▀                              █
    █                             ▄▀                              ▄█
    █                           ▄▀                              ▄▀ █
    █                         ▄▀                              ▄▀   █
    █                        ▄                               ▄     █
    █                       ▄                               ▄      █
    █                      ▄                               ▄       █
    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
    
    █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
    █                                                              █
    █                                                   ▄▄▄▄▄▀▀▀▀▀▀█
    █                                            ▄▄▄▀▀▀▀           █
    █                                        ▄▄▀▀                  █
    █                                     ▄▀▀                      █
    █                                   ▄▀                         █
    █                                 ▄▀                           █
    █                              ▄▀▀                             █
    █                            ▄▀                                █
    █                          ▄▀                                  █
    █                       ▄▄▀                                    █
    █                   ▄▄▀▀                                       █
    █            ▄▄▄▄▀▀▀                                           █
    █▄▄▄▄▄▄▄▀▀▀▀▀                                                  █
    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  12. cellular-automata

    whalliburton committed Dec 4, 2011
    > (draw-cellular-automata)
                                   ▄█▄
                                 ▄█▀▄▄█▄
                               ▄█▀▄▄█▄ ▄█▄
                             ▄█▀▄▄█▄  ▄█▄▄█▄
                           ▄█▀▄▄█▄ ▄█▀▀▄   ▄█▄
                         ▄█▀▄▄█▄  ▄█ █▀▀▀ █▀▄▄█▄
                       ▄█▀▄▄█▄ ▄█▀▀▄▄█▀▄▄█▀ █▄ ▄█▄
                     ▄█▀▄▄█▄  ▄█ █▀▀▄ ▄█▄▄█▀▀▄▄█▄▄█▄
                   ▄█▀▄▄█▄ ▄█▀▀▄▄█▀▀▀ █▄  ▄█▀▀▄    ▄█▄
                 ▄█▀▄▄█▄  ▄█ █▀▀▄▄█▄▄█▀ █▀▀ █▀▀▀▄▄█▀▄▄█▄
               ▄█▀▄▄█▄ ▄█▀▀▄▄█▀▀▀▄   ▄█▀▀▀ █▀▀ █▀▄ ▄█▄ ▄█▄
             ▄█▀▄▄█▄  ▄█ █▀▀▄▄█ █▀▀ █▀ █▄▄█▀▀ █▀ █ █▄ ▄█▄▄█▄
           ▄█▀▄▄█▄ ▄█▀▀▄▄█▀▀▀▄ ▄█▀ █▀▀▀▀▄ ▄█ █▀▀▀▀ █▄▄█▄   ▄█▄
         ▄█▀▄▄█▄  ▄█ █▀▀▄▄█ █▀ █ █▀▀▀▄▄█▀ █▄▄█▀▄ ▄█▀▄  ▄█ █▀▄▄█▄
       ▄█▀▄▄█▄ ▄█▀▀▄▄█▀▀▀▄ ▄█▀▀▀ █▀ █▀▄▄█▀▀▄  ▄█ █▄▄█▀▀▀▄▄█ █▄ ▄█▄
     ▄█▀▄▄█▄  ▄█ █▀▀▄▄█ █▀ █ █▄▄█▀▀▀▀ █▄▄█▀▀▀▀▀▄▄█▄ ▄█ █▀▄ ▄█▄▄█▄▄█
     █▄▄█▄ ▄█▀▀▄▄█▀▀▀▄ ▄█▀▀▀ █▄ ▄█▄ ▄█▀▄ ▄█▄ ▄█▀▄  ▄█▄▄█ █ █▄
     █▄   ▄█ █▀▀▄▄█ █▀ █ █▄▄█▀▄▄█▄ ▄█▄▄█ █▄ ▄█▄▄█▀▀▀▄   ▄█ █ █▄
     █ █ █▀▄▄█▀▀▀▄ ▄█▀▀▀ █▄  ▄█▄  ▄█▄   ▄█▄▄█▄  ▄█ █▀▀ █▀▄▄█ █ █▄
     █ █ █ █▄▄█ █▀ █ █▄▄█▀ █▀▀▄▄█▀▀▄▄█ █▀▄   ▄█▀▀▄▄█▀ █▀ █▄ ▄█ █ █▄
     █ █ █ █▄  ▄█▀▀▀ █▄ ▄█▀▀▀▀▀▄▄█▀▀▄ ▄█ █▀ █▀ █▀▀▄▄█▀▀▀▀▀▄▄█▄▄█ █▄
     █ █ █ █ █▀▀ █▄▄█▀▄▄█ █▄ ▄█▀▄▄█▀▀ █▄▄█▀▀▀▀▀▀▀▀▀▄▄█▄ ▄█▀▄    ▄█▄
     █ █ █ █ █▀ █▀▄  ▄█▄ ▄█▄▄█▄▄█▄▄█ █▀▄ ▄█▄     ▄█▀▄  ▄█▄▄█▀▄▄█▀▄
     █ █ █ █ █▀▀▀ █▀▀▀▄ ▄█▄         ▄█ █ █▄▄█▄ ▄█▀▄▄█▀▀▀▄   ▄█▄ ▄█▀
     █ █ █ █ █▀▄▄█▀▀ █▀ █▄▄█▄     ▄█▀▄▄█ █▄   ▄█▄▄█▄▄█ █▀▀ █▀▄ ▄█ █
     █ █ █ █ █ █▄▄█ █▀▀▀▀▄  ▄█▄ ▄█▀▄▄█▄ ▄█ █ █▀▄      ▄█▀ █▀ █ █▄▄█
     █ █ █ █ █ █▄  ▄█▀▄▄█▀▀▀▀▄ ▄█▄▄█▄  ▄█▄▄█ █ █▀▄  ▄█▀ █▀▀▀▀▀ █▄
     █ █ █ █ █ █ █▀▀▄▄█▄▄█▄▄█▀ █▄   ▄█▀▀▄   ▄█ █ █▀▀▀ █▀▀▀▄  ▄█▀ █▄
     █ █ █ █ █ █ █▀▀▀▄      ▄█▀▀ █ █▀ █▀▀▀ █▀▄▄█ █▀▄▄█▀▀ █▀▀▀▀ █▀▀▄
     █ █ █ █ █ █ █▀ █▀▀▄  ▄█▀ █ █▀ █▀▀▀▀▄▄█▀ █▄ ▄█ █▄▄█ █▀▀▄ ▄█▀▀▀▀
     █ █ █ █ █ █ █▀▀▀▀▀▀▀▀▀ █▀▀ █▀▀▀▀▄▄█▀▄▄█▀▀▄▄█▄▄█▄  ▄█▀▀▀ █ █▄
     █ █ █ █ █ █ █▀▄      ▄█▀▀ █▀▀▄▄█▀▄ ▄█▄▄█▀▀▄    ▄█▀▀ █▄▄█▀ █ █▄
    
    > (draw-cellular-automata 110)
                                   ▄█
                                 ▄█▀█
                               ▄█▀▀▀█
                             ▄█▀█ ▄██
                           ▄█▀▀▀▀▀█▄█
                         ▄█▀█   ▄██▄█
                       ▄█▀▀▀█ ▄██  ▄█
                     ▄█▀█ ▄█▀▀█▄█▄█▀█
                   ▄█▀▀▀▀▀▀█▄██  ▄█▀█
                 ▄█▀█    ▄██ ▄█▄█▀▀▀█
               ▄█▀▀▀█  ▄██▄█▀█ ▄█ ▄██
             ▄█▀█ ▄██▄██  ▄█▀▀▀▀▀▀█▄█
           ▄█▀▀▀▀▀█   ▄█▄█▀█    ▄██▄█
         ▄█▀█   ▄██ ▄██ ▄█▀█  ▄██  ▄█
       ▄█▀▀▀█ ▄██▄█▀█▄█▀▀▀▀█▄██▄█▄█▀█
     ▄█▀█ ▄█▀▀█  ▄█▀█▄█  ▄██     ▄█▀█
     █▀▀▀▀▀█▄██▄█▀▀▀█▄█▄██▄█   ▄█▀▀▀█
     █   ▄██   ▄█ ▄██     ▄█ ▄█▀█ ▄██
     █ ▄██▄█ ▄█▀▀▀█▄█   ▄█▀▀▀▀▀▀▀▀█▄█
     █▀█  ▄█▀▀█ ▄██▄█ ▄█▀█      ▄██▄█
     █▀█▄█▀█▄█▀▀█  ▄█▀▀▀▀█    ▄██  ▄█
     █▀█▄█▀█▄█▄██▄█▀█  ▄██  ▄██▄█▄█▀█
     █▀█▄█▀█     ▄█▀█▄██▄█▄██    ▄█▀█
     █▀█▄█▀█   ▄█▀▀▀█      ▄█  ▄█▀▀▀█
     █▀█▄█▀█ ▄█▀█ ▄██    ▄█▀█▄█▀█ ▄██
     █▀█▄█▀▀▀▀▀▀▀▀█▄█  ▄█▀▀▀█▄█▀▀▀█▄█
     █▀█▄█      ▄██▄█▄█▀█ ▄██▄█ ▄██▄█
     █▀█▄█    ▄██    ▄█▀▀▀█  ▄█▀█  ▄█
     █▀█▄█  ▄██▄█  ▄█▀█ ▄██▄█▀▀▀█▄█▀█
     █▀█▄█▄██  ▄█▄█▀▀▀▀▀█  ▄█ ▄██▄█▀█
     █▀█   ▄█▄██ ▄█   ▄██▄█▀▀▀█  ▄█▀█
     █▀█ ▄██  ▄█▀▀█ ▄██  ▄█ ▄██▄█▀▀▀█
    
    > (draw-cellular-automata 102)
                                   ▄█
                                 ▄█▄█
                               ▄█  ▄█
                             ▄█▄█▄█▄█
                           ▄█      ▄█
                         ▄█▄█    ▄█▄█
                       ▄█  ▄█  ▄█  ▄█
                     ▄█▄█▄█▄█▄█▄█▄█▄█
                   ▄█              ▄█
                 ▄█▄█            ▄█▄█
               ▄█  ▄█          ▄█  ▄█
             ▄█▄█▄█▄█        ▄█▄█▄█▄█
           ▄█      ▄█      ▄█      ▄█
         ▄█▄█    ▄█▄█    ▄█▄█    ▄█▄█
       ▄█  ▄█  ▄█  ▄█  ▄█  ▄█  ▄█  ▄█
     ▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█
                                   ▄█
                                 ▄█▄█
                               ▄█  ▄█
                             ▄█▄█▄█▄█
                           ▄█      ▄█
                         ▄█▄█    ▄█▄█
                       ▄█  ▄█  ▄█  ▄█
                     ▄█▄█▄█▄█▄█▄█▄█▄█
                   ▄█              ▄█
                 ▄█▄█            ▄█▄█
               ▄█  ▄█          ▄█  ▄█
             ▄█▄█▄█▄█        ▄█▄█▄█▄█
           ▄█      ▄█      ▄█      ▄█
         ▄█▄█    ▄█▄█    ▄█▄█    ▄█▄█
       ▄█  ▄█  ▄█  ▄█  ▄█  ▄█  ▄█  ▄█
     ▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█
  13. visualize-chance

    whalliburton committed Dec 5, 2011
    > (visualize-chance)
    
    █▄██████████▀█▄██ ▄██▄█▀███▄▀▄▀▄█▀▄ ▄▄█▄█▄▄▄█▄█ ▄▀▄ ▀ █   █           ▄
    █████████▀▀▄██▀▀▄██▀▀▄███▀██▀▄▄▀▀▀▄▄▀ █▀▀▀▀▀▄▀█▀ ▀ █ ▀▀▀▄ ▄▄ ▄ ▄   ▀▀
    ███▀██████▀███████▄████▄██▄███▄▀▀  ██▄█▀▄█  ▀ ▄    ▄▄ ▀ ▀  ▄   ▀       ▄  ▀
    █████████████▄███ █ █ ████▄██ ▀█▄ █▄▀  █▀█ ▄    ▄▄▄█   ▀▄▄█▄
    █████████████▄███████▄██ ▀█ ▄▀ ▄█▀▀▀███▄█▀▄▄▄▄▄ ▄   ▀  ▀ ▀█   ▄▄   ▄
    ████████▄▀██████▀████▄▀▀ ▄▀█████ ▄█▄▄▀▄█▀ ▀▀██▄▀██ ▀▀▀ ▄ ▀▀  ▄▀     ▄    ▄
    ████▄████▀▄█▄█▀█████▀▀ ██ █▄ ▀██▄▀█▀█▄▄███▄███▀▄▀▀     ▀ ▄  ▄▀▀▀▀▀      ▄
    ████████▄▄▄███▀▀ █▄███▀▀█▄▀ █▄▀▀▄ ▀▀▄▀█▄ ▀█▄█ ▄ ▀▄  ▄▀ ▄▄ ▀  ▀  █▀ ▀▄ ▀▄
    █████▄███▀██▄▀██▀▄██▀███ ▀██▄█▀█▄█▄█▀█▀▀▀ ▄▄▄▀▀ █  ▀  ▄▀ ▄     ▄▄▄     ▀
    ██████████ ███▀███ ████ ███▀▀█▀▄▀█▀ █▄▄▀███   ▄█▀▄▀▄▄ ▄   ▀     ▀▄    ▀
    ███████████████▀▀▀███ █▀ ▀███▄██▄█▀ ███▄▄▀ █  ▄▀▄  ▀    ▄▀     ▄▄ ▄ ▀  ▄
    ███████████▀███▀█ ▄█▄▀▄██▄██ █▄██▄▀█▀ ██▀   ▄▄  ▀█ ▄  ▄  ▄     ▀  ▄ ▀ ▀▄ ▀
    ██████████████████▀█▄▄█▀▄█▀█ ▀█ ▀▄▄▄▄█▄▄▀▀ ▄ ▄▄█▀ ▄▄  ▀ ▄█▄    ▀  ▀      ▀
    ███████████▀██▄█ ▄█▄█▀██▄███████ ▀ ▄█ █▄█▀▀▀█ ██▄  ▀▄▀ ▄  █  ▄▀▀    ▀▄
    ███████ ███▄████████ █▀▀▀█▄█▄██▄▀▄▄ ███▄▀█  ▄▄█▄   ▄▄         █▄▀   ▄       ▀
    ██████▄███▀▄█████▄██▀ ▄███ █▀▄█▄█▀█▄▀█▀▀▀▄█ ▄▄▀  ▀▀▀▄▄▄▀ ▄▀  ▄   ▀
  14. visualize-one-in-chance

    whalliburton committed Dec 4, 2011
    > (dotimes (x 6) (visualize-one-in-chance (expt 2 x)))
    
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ████████████████████████████████
    ██ ▄▀▄▄ █▄▄ ▄▄▄▀███▀█▄▄█ ▄▄█▀▄▀█
     ▀ ▄█ ▄▄▀█▀   ██▄ ▀▀█▄▄▀ █ ▄ ▄
    ▄ ██▄ █▄▄▄▄▄ ▀▄ ▄█ ▄▀█▀▄█ █ ▄█
    █▀▀██▀▄▀▀▀ ▀█▄█ ▀  █▀▄ █▄█▀▄ ▀▀█
      ▀  ▀ █▄▀ ▄▀██▀▀     ▄ ▀██ ▀▄██
    █▀▄  █▄▄▄▄ ▄ █▀▀▄▀▀  ▄▄▄▀ ▄█▀█▀█
     ▀▄▀ ▀▀ █▀▄█▀   ▀▀█ ▀  ▀ █▄   █▀
    ▄▄▄███  ▄  ▄█▄ █▄█  ██▀█ ▄█▀▀▄█▄
     ██▀▄  ███▀█▄▄█▄ ▀  ▄▀▄▄▀▀▄█  ▄
     █▀▄█▀▄▀▄ ▀▄█▀   ▄█▀█▄▀▄▄▀█████▄
     ▄ ▀█▄ ▄▀▀▀█▀▀▄▀ ▀▄ ███ ▄ ████▀█
     ▀▀ █▀██▄  ▀▀█▀ ▄▄ ▄  ███▄  ██ ▀
    ▀▀  ▀█ ▄▄ █  █▄██▀▄▄█ ▀▄██  ▀█ █
    █▀▀▄█▀▄ ▄▄▄▀█▄▄ █▀▀▀▄▄█ ▄▀ ▀█▀▄
    ▄█▀ ▄█▄▀  ▀ ▄  ▀▄███   ▄▄ █▀ ▀█▄
      ▀ █ █▀█ ▄▄▀▄█▀▄  █▄▄█▀██▀▀█▀▀█
      ▄ ▀▄ █ ▀ ▀▄    ▀▀▄
     ▀▀   ▀▄  ▄▄▀  █  ▀ ▄  ▄█▄ ▄ ▄ ▀
     ▄  █   █▀  ▄▀   ▄▄ ▀▀▀ ▄ ▄ ▄  ▄
      ▄    ▄ ▀ ▄ ▄  ▀  ▀▄  ▀  ▀  ▀ ▄
      ▀   ▄▀▀  ▀█ ▄▀ ▀█▄ ▄        ▀
     ▀▀  ▀        ▀▀█      ██  ▄ ▄▄
    ▀  ▄▄  ▄  ▀ ▄   ▄▄    ▀   ▀ ▀▀▄
      █  ▄ ▄  ▀▄    ▄▄   ▀    ▄▀   ▀
    ▄▀       ▄  ▀▄█ ▀▀▄ ▄▀▀  ▀▀ ██
     ▄ █▄█ ▄  ▀   █ ▄█  ▀██ ▄ ▀ ▄▄▀
         █▀ ▄    ▄ ▀      ▀▀▀▄ ▄
     ▀▀     ▀▄ ▀▄  ▀   ▀  ▀ ▀    ▄
        █  ▄▀  ▄▀    ▄ ▀   ▄ ▄▀ ▄█ ▀
     ▀  ▀▀ ▄ ▄       █   ▄ ▀▄     █
     ▀ ██      ▄      ▄▄ ▄ ▀      ▀
     ▀  ▀  █   ▄  ▄  ▀    ▀
        ▀ ▀▀  ▄     ▄█             ▄
       ▀          ▄      ▄
       ▄ ▄ ▄ ▀           ▄      ▀  ▄
      ▀  ▄         █ ▀▄▄   ▄
    ▄     ▀   ▄▄       ▄      ▀ ▀
                  ▀    ▀   ▀   ▄
      ▄ ▄▄  ▄  ▀▄    ▀        ▀    ▄
        ▀  ▀ ▀     ▀  ▄▀  ▄    ▄
           ▄▀        ▀ ▀▄▀        ▄▄
    ▀▄      ▀ ▄▀ ▀      ▄ ▄  ▄▀   ▄▀
         █▀▀▀▄     ▄       ▄  ▄
    █ ▀  ▄▄        ▄               ▄
          ▄ ▀▄   ▀    ▄  ▀▄  ▀ ▀  ▄▄
      ▀▄▀      ▀     ▄█   ▀▄ ▀ █ ▀
              ▄   ▄ ▄  ▀ ▄█▀ ▀ ▀
      ▀    ▄  █ ▀           ▄    ▄
            ▀              ▀▀ ▄    ▄
      █     ▀             █▀ ▀ ▀
        ▀             ▀
              ▄   ▄  ▄  ▀  ▀    ▀
      ▀▀      ▀          ▀ ▄    ▀ ▀▄
             ▀  ▀
       ▀▀   ▄         ▀ ▄   ▀     ▀
       ▀▀      ▄      ▄
         ▀     ▄▀   ▀              ▄
      ▀▀             ▄        ▀  ▄
    
     ▄  ▄  ▄              ▄
              ▀ ▀▀    ▀        ▄ ▀▄
             ▄   ▄
    ▀      ▄              ▄      ▄
               ▀     ▄       ▄    ▀
       ▀                ▀
            ▀            ▀
     ▄         ▄                  ▄
                          ▀  ▄   ▄▀
                        ▄          ▀
    
               ▄    ▀        ▀     ▀
           ▀         ▀
    
          ▀  ▄
                    ▄              ▀
    
                             ▄
    
       ▄
                           ▄
  15. drawing

    whalliburton committed Dec 4, 2011
    > (smile)
    
     ▄▀▀▀▀▄
    █ ▀  ▀ █
    █ ▀▄▄▀ █
     ▀▄▄▄▄▀
  16. group

    whalliburton committed Dec 4, 2011
    Pay attention! Another useful utility is being introduced.
    
    GROUP will group the elements of LIST into lists of N elements each.
    
    > (group '(mary joe sue sally sam tom tim) 2)
    ((MARY JOE) (SUE SALLY) (SAM TOM) (TIM))
  17. nuts-and-bolts

    whalliburton committed Dec 4, 2011
    Setting up a little database. Starting with the index, DATA-PATH.
    
    > (data-path "foo" :verify nil)
    "/emerald-city/academy/data/foo"  ;; This will vary depending.
  18. life

    whalliburton committed Dec 4, 2011
    > (life)
    
    
    
    
    
    
    
                    ▄▄▄
                  ▄▀  █
    
    
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄█▄
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
    
                   ▄▀▀▀▄
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
                     ▄
                   ▄▀▀▀▄
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄▄▄
                   ▄▀▀▀▄
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄▀▄
                   █   █
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄█▄
                  ▄█▀ ▀█▄
                   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
    
    
    
                   ▄▀▀▀▄
                  █     █
                  ▀▀▀ ▀▀▀
    
    
    
    
    
    
    
    
    
    
    
    
                     ▄
                   ▄███▄
                 ▄█▀   ▀█▄
                  ▀█   █▀
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄▄▄
                  ▄▀   ▀▄
                 █   ▀   █
                 ▀▄█   █▄▀
    
    
    
    
    
    
    
    
    
    
    
    
                    ▄█▄
                  ▄▀▀▀▀▀▄
                ▄█▀     ▀█▄
                 ▀▄█   █▄▀
    
    
    
    
    
    
    
    
    
    
    
    
                   ▄▀▀▀▄
                 ▄▄▀▄▄▄▀▄▄
                █ ▀     ▀ █
                ▀▀▄█   █▄▀▀
    
    
    
    
    
    
    
    
    
    
    
                     ▄
                   ▄▀█▀▄
                 ▄▄▀▄█▄▀▄▄
               ▄█ █▀ ▀ ▀█ █▄
                ▀█▄█   █▄█▀
    
    
    
    
    
    
    
    
    
    
    
                    ▄▄▄
                   ▄   ▄
                 ▄ ▀   ▀ ▄
               █▀   ▄▀▄   ▀█
               ▀▄▄ █   █ ▄▄▀
                  ▀     ▀
    
    
    
    
    
    
    
    
    
    
                     █
                    ▀▀▀
                ▄ ▀     ▀ ▄
              ▄█▀   ▄█▄   ▀█▄
               ▀▄▄▀█▀ ▀█▀▄▄▀
                 ▀▀     ▀▀
    
    
    
    
    
    
    
    
    
    
    
                    ▀█▀
               ▄▄▄       ▄▄▄
              █ ▀   ▀▀▀   ▀ █
              ▀▀▄▀▀ ▄ ▄ ▀▀▄▀▀
                ▀▀▀     ▀▀▀
    
    
    
    
    
    
    
    
    
    
                     ▄
                    ███
               ▄█▄   ▄   ▄█▄
             ▄█ ██   █   ██ █▄
              ▀▀▀▀ ▄   ▄ ▀▀▀▀
                ▀█       █▀
    
    
    
    
    
    
    
    
    
    
                    ▄▄▄
                    ▄ ▄
               ▀▀▀  ▀ ▀  ▀▀▀
             █▀   █ ▀▀▀ █   ▀█
             ▀▀  ▀█     █▀  ▀▀
                ██▀     ▀██
    
    
    
    
    
    
    
    
    
    
                     █
                ▄   ▀ ▀   ▄
              ▄▄█▄ ▄▄ ▄▄ ▄█▄▄
            ▄▀▀   ▄▀ █ ▀▄   ▀▀▄
             ▀▀ ▄▀▀█   █▀▀▄ ▀▀
                █ █     █ █
    
    
    
    
    
    
    
    
    
    
                    ▄▄▄
                     ▀
             ▄▄ ▄▄▄▄▄▄▄▄▄▄▄ ▄▄
            ▄▀▀ ▀█ ▀ ▀ ▀ █▀ ▀▀▄
             ▀ ▄▄▀ █▀ ▀█ ▀▄▄ ▀
               ▀▀ ▀▀   ▀▀ ▀▀
    
    
    
    
    
    
    
    
    
    
                    ▄█▄
                    ▀▀▀
             ▄▄ ▄▀▀█▀█▀█▀▀▄ ▄▄
            █ █  ▄ █ █ █ ▄  █ █
              ▄▄ ▀ ▀▀ ▀▀ ▀ ▄▄
               ▀▀▀▀▀   ▀▀▀▀▀
    
    
    
    
    
    
    
    
    
    
                    ▀▀▀
                  ▄ ▀ ▀ ▄
             ▄▄▄ █▀▀ ▀ ▀▀█ ▄▄▄
            ▀ ▀    █ █ █    ▀ ▀
             ▀██▀  ▀█▀█▀  ▀██▀
              ▀▀███     ███▀▀
    
    
    
    
    
    
    
    
    
                     ▄
                    ▄▀▄
                 ▄▄ ▄▄▄ ▄▄
             ▄█▄██ █   █ ██▄█▄
              ▀▀  █▄   ▄█  ▀▀
             ▀  ▀ ▄▀▄ ▄▀▄ ▀  ▀
              ▀   █▀   ▀█   ▀
                 ▀       ▀
    
    
    
    
    
    
    
    
    
                    ▀█▀
                ▄▄▄██▄██▄▄▄
             █▀    █ ▀ █    ▀█
             ▀▄▄ ▄▄▄   ▄▄▄ ▄▄▀
                 █▄ █ █ ▄█
                 ██▄   ▄██
    
    
    
    
    
    
    
    
    
                     ▄
                   ▄▀▀▀▄
                 █       █
            ▄█▀  ▀  ▄▀▄  ▀  ▀█▄
             ▀▄ ▄▄▄█   █▄▄▄ ▄▀
                ▄   ▀ ▀   ▄
                ▀▄ ▄   ▄ ▄▀
                  ▀     ▀
    
    
    
    
    
    
    
    
                    ▄▄▄
                    ███
                ▄▄█     █▄▄
            █▀▀     ▄█▄     ▀▀█
            ▀▀▀  █▄██ ██▄█  ▀▀▀
               ▀▀ ▀▀   ▀▀ ▀▀
                ▀█▄     ▄█▀
                  ▀     ▀
    
    
    
    
    
    
    
    
                    ▄▀▄
                   █▄ ▄█
             ▄   ▄█▀ ▀ ▀█▄   ▄
           ▄▀▀   ▀ ▄▀▀▀▄ ▀   ▀▀▄
            ▀█▄▄ ▀       ▀ ▄▄█▀
               ▄▀ ▄ ▀ ▀ ▄ ▀▄
                █▀█     █▀█
                 ▀▀     ▀▀
    
    
    
    
    
    
    
    
                    ▄█▄
                   ▀ ▄ ▀
            ▄▄   █   ▀   █   ▄▄
           ▄▀▀   ▀▄▀███▀▄▀   ▀▀▄
            ██▄▄▄         ▄▄▄██
               ▄▀ ▄▄   ▄▄ ▀▄
               ▀█ ▀█   █▀ █▀
                 ▀▀     ▀▀
    
    
    
    
    
    
    
    
                    ███
                    ▄ ▄
            ▄▄  ▄▄       ▄▄  ▄▄
           █ ▀   ▀▄▀   ▀▄▀   ▀ █
           ▀▄ ▄█▄    ▀    ▄█▄ ▄▀
             ▀ ▄▀▀▄▄   ▄▄▀▀▄ ▀
               ██  ▄▀ ▀▄  ██
                 ▀▀     ▀▀
    
    
    
    
    
    
    
                     ▄
                    █ █
                    ▀ ▀
            ▄▄  ▄▄▄     ▄▄▄  ▄▄
          ▄█ ▀  ▀▀▄     ▄▀▀  ▀ █▄
           ▀█▄█▀▀▄       ▄▀▀█▄█▀
             ▀▄▄ ▀█▄   ▄█▀ ▄▄▀
              ▀▄ ▀█▄▀ ▀▄█▀ ▄▀
                ▀▀▀     ▀▀▀
    
    
    
    
    
    
    
                     ▄
                   ▄█ █▄
    
            ▄▄  ▄▀▄     ▄▀▄  ▄▄
          █▀ █▄ ▀         ▀ ▄█ ▀█
          ▀▄  ▀▀▀█▄     ▄█▀▀▀  ▄▀
            ▀▄▄██▀ ▀   ▀ ▀██▄▄▀
              ▀▄▀▀  ▀ ▀  ▀▀▄▀
                ▀█▀▀   ▀▀█▀
    
    
    
    
    
    
    
                     ▄
                   ██ ██
    
           ▄▄▄  ▄▀       ▀▄  ▄▄▄
         ▄█▀▄▄ ▀ █       █ ▀ ▄▄▀█▄
          ▀█ ▀█▀▀▀▀     ▀▀▀▀█▀ █▀
            ▀█    ▄     ▄    █▀
             ▀ ▄ ▀ ▄   ▄ ▀ ▄ ▀
                ██▀     ▀██
    
    
    
    
    
    
    
                    ▄▄▄
                   █▄ ▄█
    
          ▄▄█   ▄▄       ▄▄   █▄▄
         █   ▄▀  ▀       ▀  ▀▄   █
         ▀▄▄   ▀██▀     ▀██▀   ▄▄▀
            ▀██             ██▀
              ▀   ▀     ▀   ▀
               ▀▄ █     █ ▄▀
  19. war

    whalliburton committed Dec 4, 2011
    > (war)
    A strange game. The only winning move is not to play.
  20. help

    whalliburton committed Dec 4, 2011
    > (help)
    HELP                         Lisp helps those who help themselves.
    PETALS-AROUND-THE-ROSE       Play the petals around the rose dice game. Guess the rules.
    HILBERT-SPACE-FILLING-CURVE  Draw one of Hilbert's continuous fractal space-filling curves.
    SHOW-UNICODE-CHARACTERS      Show many sets of unicode arrows, dingbats, boxes, i-ching, etc.
  21. random-booleans

    whalliburton committed Dec 4, 2011
    > (loop for el in (random-booleans (* 80 15))
                for x from 1
                do (princ (if el #\full_block #\space))
                   (when (zerop (mod x 80)) (fresh-line)))
    
      ███ ███ █  █ █    ███ █  ██ █  █ █      ███ █          ██   █ █  █████  █  █
     ██ ███       ███  █    ███████     █ ███████ ██   ███    ███ ██████   █   ██
    █  █ ███  █    █ ██   █  █ ██    ██  █ ███ █  █ ███    ██  ██ ████ ███   █  █ █
    ██ █ ███ ██ ████  █   █  █ ██ ██ █  █ ██    █████   ███ ██   █ █   ██ █ █ ███  █
    ███   █  █ ████ ██     █ █ ███ ██ ██  █   █        █ █   ███████████  █  █████
    █  ██  ███████   ██ █   █ ██ █  ███ ██  ████ ███████ ████████ █  █  ██ ██  █ █
    ████ ██ ██ █ ██████  █   █        ██ █ █ ██  █    █ ██ █ █ █ █   █ ████  █ ██ ██
     ██ ███  ██   █ █ █  ██    ██  ████  ███   █ █  █ ███  ███ █     █  █ ███████
    ████  ██ █   ██ ███  █ █   █  ██      █ ███████ ██████     █  ████ █ █████ ████
    █ █ ███  █    ██  █  █ ██  ███  █ █  █ ███ ██ ███ ██  █ █ █     █████   ███
    ██    █ ███████        ██   ██ ███  █ ██   █ ████   █    ███████ ██   ████ █ █
    ██    █ █ ██████ █ █ █ ████  █   ██  ██  ██  █   ███   █  ██ █    █ ████  █ █ ██
       █ ███  ██ █  █ █ ██   ██ █  ███ █  ███  ███   █ █   ████ ██ █  ████  █  █ █
        ██ ██    ██ █ █ █ █   █ █ ██ █ █  ██████  █ █ ██  █  █████ ███  █ █
    █ ███  █  ████ ███ █ █ █ ███   █ █ █ ███  ██  ███ █   ██ ██  ██ █ █  ███  █  █
  22. hilbert-space-filling-curve

    whalliburton committed Dec 4, 2011
    > (hilbert-space-filling-curve)
    ─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─
    ┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐
    │┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│
    └┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘
    ┌┐┌┐│┌─┐┌─┐│┌┐┌┐└┐┌──┐┌┘┌┐┌┐│┌─┐┌─┐│┌┐┌┐└┐┌──┐┌┘┌┐┌┐│┌─┐┌─┐│┌┐┌┐
    │└┘│└┘┌┘└┐└┘│└┘│┌┘└┐┌┘└┐│└┘│└┘┌┘└┐└┘│└┘│┌┘└┐┌┘└┐│└┘│└┘┌┘└┐└┘│└┘│
    └┐┌┘┌┐└┐┌┘┌┐└┐┌┘│┌┐││┌┐│└┐┌┘┌┐└┐┌┘┌┐└┐┌┘│┌┐││┌┐│└┐┌┘┌┐└┐┌┘┌┐└┐┌┘
    ┌┘└─┘└─┘└─┘└─┘└┐└┘└┘└┘└┘┌┘└─┘└─┘└─┘└─┘└┐└┘└┘└┘└┘┌┘└─┘└─┘└─┘└─┘└┐
    │┌─┐┌─┐┌┐┌─┐┌─┐│┌┐┌┐┌┐┌┐└┐┌─┐┌─┐┌─┐┌─┐┌┘┌┐┌┐┌┐┌┐│┌─┐┌─┐┌┐┌─┐┌─┐│
    └┘┌┘└┐└┘└┘┌┘└┐└┘│└┘││└┘│┌┘└┐└┘┌┘└┐└┘┌┘└┐│└┘││└┘│└┘┌┘└┐└┘└┘┌┘└┐└┘
    ┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐└┐┌┘└┐┌┘│┌┐│┌┐└┐┌┘┌┐│┌┐│└┐┌┘└┐┌┘┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐
    │└─┘└─┘││└─┘└─┘│┌┘└──┘└┐└┘└┘│└─┘└─┘│└┘└┘┌┘└──┘└┐│└─┘└─┘││└─┘└─┘│
    └┐┌──┐┌┘└┐┌──┐┌┘│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│└┐┌──┐┌┘└┐┌──┐┌┘
    ┌┘└┐┌┘└┐┌┘└┐┌┘└┐└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘┌┘└┐┌┘└┐┌┘└┐┌┘└┐
    │┌┐││┌┐││┌┐││┌┐│┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐│┌┐││┌┐││┌┐││┌┐│
    └┘└┘└┘└┘└┘└┘└┘└┘│└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘│└┘└┘└┘└┘└┘└┘└┘└┘
    ┌┐┌┐┌┐┌┐┌┐┌┐┌┐┌┐│┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐│┌┐┌┐┌┐┌┐┌┐┌┐┌┐┌┐
    │└┘││└┘││└┘││└┘│└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘│└┘││└┘││└┘││└┘│
    └┐┌┘└┐┌┘└┐┌┘└┐┌┘┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐└┐┌┘└┐┌┘└┐┌┘└┐┌┘
    ┌┘└──┘└┐┌┘└──┘└┐│└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│┌┘└──┘└┐┌┘└──┘└┐
    │┌─┐┌─┐││┌─┐┌─┐│└┐┌──┐┌┘┌┐┌┐│┌─┐┌─┐│┌┐┌┐└┐┌──┐┌┘│┌─┐┌─┐││┌─┐┌─┐│
    └┘┌┘└┐└┘└┘┌┘└┐└┘┌┘└┐┌┘└┐│└┘│└┘┌┘└┐└┘│└┘│┌┘└┐┌┘└┐└┘┌┘└┐└┘└┘┌┘└┐└┘
    ┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐│┌┐││┌┐│└┐┌┘┌┐└┐┌┘┌┐└┐┌┘│┌┐││┌┐│┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐
    │└─┘└─┘└┘└─┘└─┘│└┘└┘└┘└┘┌┘└─┘└─┘└─┘└─┘└┐└┘└┘└┘└┘│└─┘└─┘└┘└─┘└─┘│
    └┐┌─┐┌─┐┌─┐┌─┐┌┘┌┐┌┐┌┐┌┐└┐┌─┐┌─┐┌─┐┌─┐┌┘┌┐┌┐┌┐┌┐└┐┌─┐┌─┐┌─┐┌─┐┌┘
    ┌┘└┐└┘┌┘└┐└┘┌┘└┐│└┘││└┘│┌┘└┐└┘┌┘└┐└┘┌┘└┐│└┘││└┘│┌┘└┐└┘┌┘└┐└┘┌┘└┐
    │┌┐│┌┐└┐┌┘┌┐│┌┐│└┐┌┘└┐┌┘│┌┐│┌┐└┐┌┘┌┐│┌┐│└┐┌┘└┐┌┘│┌┐│┌┐└┐┌┘┌┐│┌┐│
    └┘└┘│└─┘└─┘│└┘└┘┌┘└──┘└┐└┘└┘│└─┘└─┘│└┘└┘┌┘└──┘└┐└┘└┘│└─┘└─┘│└┘└┘
    ┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐
    │└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│
    └┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘
    ┌┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└┐
    │┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐┌─┐│
    └┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘┌┘└┐└┘
    ┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐│┌┐│┌┐└┐┌┘┌┐
    │└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘││└─┘└─┘│└┘└┘│└─┘└─┘│└┘└┘│└─┘└─┘│
    └┐┌──┐┌┘┌┐┌┐│┌─┐┌─┐│┌┐┌┐└┐┌──┐┌┘└┐┌──┐┌┘┌┐┌┐│┌─┐┌─┐│┌┐┌┐└┐┌──┐┌┘
    ┌┘└┐┌┘└┐│└┘│└┘┌┘└┐└┘│└┘│┌┘└┐┌┘└┐┌┘└┐┌┘└┐│└┘│└┘┌┘└┐└┘│└┘│┌┘└┐┌┘└┐
    │┌┐││┌┐│└┐┌┘┌┐└┐┌┘┌┐└┐┌┘│┌┐││┌┐││┌┐││┌┐│└┐┌┘┌┐└┐┌┘┌┐└┐┌┘│┌┐││┌┐│
    └┘└┘└┘└┘┌┘└─┘└─┘└─┘└─┘└┐└┘└┘└┘└┘└┘└┘└┘└┘┌┘└─┘└─┘└─┘└─┘└┐└┘└┘└┘└┘
    ┌┐┌┐┌┐┌┐└┐┌─┐┌─┐┌─┐┌─┐┌┘┌┐┌┐┌┐┌┐┌┐┌┐┌┐┌┐└┐┌─┐┌─┐┌─┐┌─┐┌┘┌┐┌┐┌┐┌┐
    │└┘││└┘│┌┘└┐└┘┌┘└┐└┘┌┘└┐│└┘││└┘││└┘││└┘│┌┘└┐└┘┌┘└┐└┘┌┘└┐│└┘││└┘│
    └┐┌┘└┐┌┘│┌┐│┌┐└┐┌┘┌┐│┌┐│└┐┌┘└┐┌┘└┐┌┘└┐┌┘│┌┐│┌┐└┐┌┘┌┐│┌┐│└┐┌┘└┐┌┘
    ┌┘└──┘└┐└┘└┘│└─┘└─┘│└┘└┘┌┘└──┘└┐┌┘└──┘└┐└┘└┘│└─┘└─┘│└┘└┘┌┘└──┘└┐
    │┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐││┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│┌┐┌┐│┌─┐┌─┐│
    └┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘│└┘│└┘┌┘└┐└┘
    ┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐└┐┌┘┌┐
    │└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘││└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘└─┘│
    └┐┌─┐┌─┐┌─┐┌─┐┌──┐┌─┐┌─┐┌─┐┌─┐┌┘└┐┌─┐┌─┐┌─┐┌─┐┌──┐┌─┐┌─┐┌─┐┌─┐┌┘
    ┌┘└┐└┘┌┘└┐└┘┌┘└┐┌┘└┐└┘┌┘└┐└┘┌┘└┐┌┘└┐└┘┌┘└┐└┘┌┘└┐┌┘└┐└┘┌┘└┐└┘┌┘└┐
    │┌┐│┌┐└┐┌┘┌┐│┌┐││┌┐│┌┐└┐┌┘┌┐│┌┐││┌┐│┌┐└┐┌┘┌┐│┌┐││┌┐│┌┐└┐┌┘┌┐│┌┐│
    └┘└┘│└─┘└─┘│└┘└┘└┘└┘│└─┘└─┘│└┘└┘└┘└┘│└─┘└─┘│└┘└┘└┘└┘│└─┘└─┘│└┘└┘
    ┌┐┌┐│┌─┐┌─┐│┌┐┌┐┌┐┌┐│┌─┐┌─┐│┌┐┌┐┌┐┌┐│┌─┐┌─┐│┌┐┌┐┌┐┌┐│┌─┐┌─┐│┌┐┌┐
    │└┘│└┘┌┘└┐└┘│└┘││└┘│└┘┌┘└┐└┘│└┘││└┘│└┘┌┘└┐└┘│└┘││└┘│└┘┌┘└┐└┘│└┘│
    └┐┌┘┌┐└┐┌┘┌┐└┐┌┘└┐┌┘┌┐└┐┌┘┌┐└┐┌┘└┐┌┘┌┐└┐┌┘┌┐└┐┌┘└┐┌┘┌┐└┐┌┘┌┐└┐┌┘
    ┌┘└─┘└─┘└─┘└─┘└┐┌┘└─┘└─┘└─┘└─┘└┐┌┘└─┘└─┘└─┘└─┘└┐┌┘└─┘└─┘└─┘└─┘└┐
    │┌─┐┌─┐┌┐┌─┐┌─┐││┌─┐┌─┐┌┐┌─┐┌─┐││┌─┐┌─┐┌┐┌─┐┌─┐││┌─┐┌─┐┌┐┌─┐┌─┐│
    └┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘└┘┌┘└┐└┘
    ┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐┌┐└┐┌┘┌┐
    │└─┘└─┘││└─┘└─┘││└─┘└─┘││└─┘└─┘││└─┘└─┘││└─┘└─┘││└─┘└─┘││└─┘└─┘│
    └┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘└┐┌──┐┌┘
    ┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐┌┘└┐
    │┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐││┌┐│
    └┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘└┘
  23. power-of-two-p

    whalliburton committed Dec 4, 2011
    > (dotimes (x 64) (princ (if (power-of-two-p (1+ x)) #\flower " ")))
    ⚘⚘ ⚘   ⚘       ⚘               ⚘                               ⚘