Write language name in 3D ASCII: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,340: / Line 2,340: @@
 =={{header|Phix}}==
-<lang Phix>constant s =
+<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: / 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),{" ","1","0"},{"-","_/","  "})&"\n")</lang>
+puts(1,substitute_all(sprintf(join(repeat("%16b",7),"\n"),q)," 10",{"-","_/","  "})&"\n")</lang>
 =={{header|PicoLisp}}==