Write language name in 3D ASCII: Difference between revisions

Line 2,340:
 
=={{header|Phix}}==
<lang Phix>constant s = """
"------*** * \n"&
"-----* * * \n"&
"----* * * * \n"&
"---*** * \n"&
"--* *** * * * \n"&
"-* * * * * \n"&
"* * * * * * \n"
"""
puts(1,substitute(substitute(s,"*","_/")," "," "))
puts(1,substitute_all(s,"* ",{"_/"," "}))</lang>
</lang>
{{out}}
<pre>
Line 2,363:
For those of you who like this sort of thing, same output
<lang Phix>constant q = {0(30)10C,0(31)176,0(32)2A4,0(33)6N3,0(34)7GP,0(35)DWF,0(36)QC4}
puts(1,substitute_all(sprintf(join(repeat("%16b",7),"\n"),q),{" 10","1","0"},{"-","_/"," "})&"\n")</lang>
 
=={{header|PicoLisp}}==
7,794

edits