view interps/linguine/collatz.lng @ 2307:9287c6b64595

<Jafet> (echo \'#!/bin/sh\'; echo \'cd /var/irclogs/_esoteric; cat $(ls ????-??-??.txt | tail -1) | sed \'\\\'\'s/[^>]*>\'\\\'\' | grep "^\\`" | tail -1 // #Best cheating quine ever?\') > bin/quine2
author HackBot
date Fri, 01 Mar 2013 01:40:17 +0000
parents 859f9b4339e6
children
line wrap: on
line source

'Collatz problem calculator
'Programmed by Jannis Harder (jix), 2005
1[1?,1~10:2,0>-1,2=*0,2>-2,0+*2,0+*1,0-48]1
2[0#,5=10,5$,0~1:0,1=*0,1|1,1<-1:3,0>1]2
3[1=*0,0+*1,0+*1,0+1]2