view bin/mirrorgo @ 8601:051bf11c8692

<int-e> ` ( echo \'main=putStr s>>print s\'; echo \'s="main=putStr s>>print s\\ns="\' ) > quines/haskell
author HackBot
date Sat, 25 Jun 2016 09:37:35 +0000
parents b9ced0a7783a
children
line wrap: on
line source

#!/bin/bash
declare {{a..h},{j..t}}="$((i++))" letters=({{a..h},{j..t}}); while read -r; do echo "${letters[18-${REPLY:0:1}]}$((20-${REPLY:1}))"; done