Skip to content

Latest commit

 

History

History
27 lines (20 loc) · 822 Bytes

File metadata and controls

27 lines (20 loc) · 822 Bytes
pid 1040
author Jason Archer
title LetterDiamondOneliner v3
date 2009-04-16 14:24:16 -0700
format posh
parent 0

LetterDiamondOneliner v3

@Karl

...but couldn't get it smaller than a twitter message length 139 chars w/o arg

&{param([char]$c)[int]$s=65;$p=$c-$s;$r=,(' '*$p+[char]$s);$r+=@(do{"{0,$p} {1}{0}"-f([char]++$s),('  '*$f++)}until(!--$p));$r;$r[-2..-99]}Z

# trimmed 130 chars w/o arg
&{param([char]$c)$p=$c-($s=65);$r=,(' '*$p+[char]$s);do{$r+="{0,$p} {1}{0}"-f([char]++$s),('  '*$f++)}until(!--$p);$r;$r[-2..-99]}J

# trimmed to 127 chars w/o arg
&{$p=[char]$args[0]-($s=65);$r=,(' '*$p+[char]$s);do{$r+="{0,$p} {1}{0}"-f([char]++$s),('  '*$f++)}until(!--$p);$r;$r[-2..-99]}J