Matrix digital rain

Matrix digital rain is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Implement the Matrix Digital Rain visual effect from the movie "The Matrix" as described in Wikipedia.

Provided is a reference implementation in Common Lisp to be run in a terminal.

Common Lisp

Runs in the terminal (using the Ncurses C library and the croatoan Lisp wrapper).

<lang lisp> (defun matrix-digital-rain ()

 (with-screen (scr :input-echoing nil :input-blocking nil :cursor-visibility nil)
   (let* ((width (.width scr))
          (height (.height scr))
          ;; start at a random height in each column.
          (pos (loop repeat width collect (random height)))
          ;; run each column at a random speed.
          (speeds (loop repeat width collect (random 4))))
     ;; hit the q key to exit the main loop.
     (add-event-handler (scr #\q) 'exit-event-loop)
     (add-event-handler (scr nil)
       (lambda (win event)
         ;; generate a random ascii char
         (flet ((randch () (+ 64 (random 58))))
           (loop for col from 0 to (1- width) do
             (loop repeat (nth col speeds) do
               (setf (.attributes win) '(:bold))
               (setf (.color-pair win) '(:white :black))
               (add win (randch) :y (mod (nth col pos) height) :x col)
               (setf (.color-pair win) '(:green :black))
               (add win (randch) :y (mod (- (nth col pos) 1) height) :x col)
               (add win (randch) :y (mod (- (nth col pos) 2) height) :x col)
               (setf (.attributes win) '())
               (add win (randch) :y (mod (- (nth col pos) 3) height) :x col)
               ;; overwrite the last char half the height from the first char.
               (add win #\space  :y (mod (- (nth col pos) (floor height 2)) height) :x col)
               (refresh win)
               ;; advance the column
               (setf (nth col pos) (mod (1+ (nth col pos)) height)))))))
     (setf (.frame-rate scr) 20)
     (run-event-loop scr))))

</lang>

Perl 6

Works with: Rakudo version 2018.11

Kind of cheap and cheesy, but what the heck... Probably will only work in POSIX compatible terminal. Runs until you hit ^C to exit.

<lang perl6>my @codes = flat 'Α' .. 'Π', 'Σ' .. 'ѵ', 'Ѐ' .. 'ѵ', 'Ҋ' .. 'ԯ', 'Ϣ' .. 'ϯ',

                'Ⲁ' .. '⳩', '∀' .. '∗', '℀' .. '℺', '⨀' .. '⫿';

my ($rows,$cols) = qx/stty size/.words;

my @c = flat "\e[38;2;255;255;255m", (255,240 … 30).map({"\e[38;2;0;$_;0m"}), "\e[38;2;0;25;0m" xx 200; my $sz = +@c; my (@o, @s, @a); print "\e[?25l"; init($rows, $cols);

loop {

    my ($r,$c) = qx/stty size/.words;
    init($r, $c) if $r != $rows or $c != $cols;
    print "\e[1;1H";
    for ^@s { print (@c[@a[$_]<fg>], @a[$_]<bg>, @s[$_]).join; };
    @s[(^@s).pick] = @codes.roll for ^100;
    for ^@s { @a[$_]<fg> = (@a[$_]<fg> + 1) % $sz; }

}

sub init ($r, $c) {

   @s = @codes.roll(($r - 1) * $c);
   ($rows,$cols) = $r, $c;
   @a = {:fg((^@c).pick), :bg("\e[48;5;232m")} xx +@s;
   my @o = (^@c).pick xx $cols;
   for ^$rows -> $row {
       for ^$cols -> $col {
           @a[$row * $cols + $col]<fg> = @o[$col];
       }
       @o = (^@o).map: {(@o[$_] - 1) % $sz};
   }

}

END { print "\e[?25h \e[H\e[J";} # clear and reset screen</lang>