chernobyl.rkt
code-poetry
#lang racket (require file/md5)(define(S n x)(if(=(length x)0)x (let([i(list-ref x(random(length x)))])(cons(if(=( random(max(floor n)1))0)(md5(~a i n))i)(S n(remove i x))))))(for([i(in-range 500)])(sleep(/ 5(+ i 20) ))(write(S(- 25(/ i 15))(quote( ;-------------------------------------------------; ; #"d4b7ab498e494f182f92627d9a38e60f" ; ;-------------------------------------------------; [ ] [ On 26 April 1986 ] [ ] [ You ask me why I drink? ] [ ] (I was on the board (agronomy (Pripyat))) [ ] [ at the time when word went up ] [ ] (I passed a liquidator shouting for vodka (no - singing an old party song (a happy one))) [ ] [ that our readings were wrong ] [ ] (all the old people were oblivious ("an apron (no lead) makes my cow" "(Ukrainian Grey) safe to milk")) [ ] [ and were the ones on duty and in private theyre ] [ ] (the technical people (from Moscow)) [ ] [ saying it cant be fixed ] [ ] (it will take aeons to clear (the earth will be beautiful but barren (fooling the media (the usual corruption)))) [ ] [ and what are chemicals to a peasant? ] [ ] (an atom (a nucleus (a neutron))) [ ] [ But they understood when their portions halved ] [ ] (and halved again) [ ] [ Why dont you? ] [ ] ;-------------------------------------------------; )))))
URL: https://code-poetry.com/chernobyl
Criado/Created: 08-05-2022 [11:08]
Última actualização/Last updated: 30-05-2023 [23:14]
Voltar à página inicial/Back to first page


(c) Tiago Charters de Azevedo