Write language name in 3D ASCII: Difference between revisions

m
→‎{{header|Phix}}: added syntax colouring the hard way
(Replaced list of "replace" with "multireplace". Changed indentation and used "dedent".)
m (→‎{{header|Phix}}: added syntax colouring the hard way)
Line 2,606:
 
=={{header|Phix}}==
<!--<lang Phix>constant s = """(phixonline)-->
<span style="color: #008080;">constant</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
------*** *
------* ** *
-----* * * *
----* * * *
---* *** * * *
--* * ** * * *
-* * * * * *
* * * * * *
"""
"""</span>
puts(1,substitute_all(s,"* ",{"_/"," "}))</lang>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"* "</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">}))</span>
<!--</lang>-->
{{out}}
<pre>
Line 2,628 ⟶ 2,630:
===obfuscated===
For those of you who like this sort of thing, same output
<!--<lang Phix>(phixonline)-->
<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}
<span style="color: #008080;">constant</span> <span style="color: #000000;">q</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0(30)10C</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(31)176</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(32)2A4</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(33)6N3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(34)7GP</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(35)DWF</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(36)QC4</span><span style="color: #0000FF;">}</span>
puts(1,substitute_all(sprintf(join(repeat("%16b",7),"\n"),q)," 10",{"-","_/"," "})&"\n")</lang>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%16b"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">7</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">q</span><span style="color: #0000FF;">),</span><span style="color: #008000;">" 10"</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"-"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">})&</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>
<!--</lang>-->
===another version===
Inspired by Ruby
<!--<lang Phix>puts(1,"""phixonline)-->
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"""
__ ________
/_/\ /__ ______ \ ________
\ /_/\ \/ /\____/ /______ \ __
\ \ \/ / \____/ /\ //_/\__
\ \ \/___ / / / \_\//_ __/\
/ \ \ \______/___/ / / \_/\/_ /\ __
/ /\ ____ \______/ \/ \ \ /_/\/ /\
/ / /\ \ \____ \ \ \ \ \_ \ / /
/ / / /\ \ \ \ \ \ / /\_\ \/
/_ / / \ \ \ \ \ \ /_ / /\ \
\ /_\/ / \ \_ \/ \ \_\/ \ /_\/ /\_ \/
\_\/ \_\/ \_\/ \_\/\_\/
""")
"""</span><span style="color: #0000FF;">)</span>
<span style="color: #000080;font-style:italic;">-- or if you prefer something a little more cryptic (same output):</span>
puts(1," __ ________\n /_/\\ / ______ \\\n \\ \\ \\/ /\\____/ /\\ __\n "&
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" __ ________\n /_/\\ / ______ \\\n \\ \\ \\/ /\\____/ /\\ __\n "</span><span style="color: #0000FF;">&</span>
"\\ \\ \\/ / / / //_/\\\n \\ \\ \\/___/ / / \\_\\/_ __\n /\\ \\__"&
<span style="____color: #008000;">"\\ \\ \\/ / / /_ /\\/ _/\\\n / /\\ ____ \\ \\/___/ / / \\ \\ _\\/_ / __\n / / /\\ \\__"</span><span style="color: #0000FF;">&</span>
"\\ \\<span \\style="color: \\#008000;">"____/ / \\ /_/\\ / /\\\n / / /\\ ____ \\ \\ \\ \\ \\/ /\\ n / / /\\ \\\n/_/ "</span><span style="color: \\#0000FF;">&</span>
<span style="color: #008000;">"\\ \\ \\ \\ \\ /_/ /\\ \\\n\\_\\/ /\n / / / \\_ \\/ \\_ \\/ \\_ \\ / / \\\n/_/ / \\"</\nspan><span style="color: #0000FF;")>&</langspan>
<span style="color: #008000;">" \\ \\ \\ \\ \\ /_/ /\\ \\\n\\_\\/ \\_\\/ \\_\\/ \\_\\/\\_\\/\n"</span><span style="color: #0000FF;">)</span>
<!--</lang>-->
 
=={{header|PicoLisp}}==
7,806

edits