Mercurial > repo
view zalgo.hs @ 2318:7abc8205c350
<Jafet> (echo \'#!/bin/sh\'; echo \'a() { echo $1; p=$(echo -n $(ps -p $1 -oppid | tail -1)); if egrep " \\| cat\\$" /proc/$p/cmdline; then ps -p $1 -ocmd | tail -1; else a $p; fi }\'; echo \'a $$\') > bin/quine2 && quine2 a b c
author | HackBot |
---|---|
date | Fri, 01 Mar 2013 02:02:16 +0000 |
parents | 4c00286ee152 |
children | b6abc7ec1161 |
line wrap: on
line source
import Random;main=mapM_((>>(י=<<randomRIO('̀','ͯ'))).י)=<<getContents;י=putChar