Paste: cute ascii triangle

Author: prunedtree
Mode: factor
Date: Tue, 20 Jan 2009 04:28:42
Plain Text | 
: pad-center ( seq n elt -- padded ) [ dup length 2 /i cut -rot 3append ] padding ;
: rule ( in -- out ) [ "aaa" = ] [ "bbb" = ] bi or [ CHAR: a ] [ CHAR: b ] if ;
: transition ( seq -- seq ) "aa" dup swapd 3append 3 <clumps> [ rule ] map ;
: ascii-sierpinsky ( n -- seqs ) 
    "b" swap [1,b] [ drop [ transition ] keep 80 CHAR: \s pad-center >string ] map nip ;

Annotation: asdfasdf

Author: asdfasdf
Mode: factor
Date: Thu, 26 Feb 2009 04:47:57
Plain Text | 
afsdasdf

Annotation: 141

Author: 151
Mode: factor
Date: Fri, 4 Sep 2009 22:44:39
Plain Text | 
758741

New Annotation

Summary:
Author:
Mode:
Body: