Inverted syntax: Difference between revisions
Content added Content deleted
(Added Nim example) |
|||
Line 834: | Line 834: | ||
} until $answer ~~ 42;</lang> |
} until $answer ~~ 42;</lang> |
||
You can't just put the <tt>my</tt> on the <tt>$answer</tt> in the block because the conditional is outside the scope of the block, and would not see the declaration. |
You can't just put the <tt>my</tt> on the <tt>$answer</tt> in the block because the conditional is outside the scope of the block, and would not see the declaration. |
||
=={{header|Phix}}== |
|||
original... the got still you've as long as ,itself compile/run to used be can This |
|||
<lang Phix>if end |
|||
(&"test.exw"[1]cl)system |
|||
then >2(cl)length if |
|||
(&"\n"(pgm)mung,"test.exw")write_file = {} |
|||
write_file.e include |
|||
([$]cl)get_text = pgm string |
|||
()command_line = cl sequence |
|||
function end |
|||
("\n",lines)join return |
|||
for end (nup,rip,((([i]lines)split)reverse)join)substitute_all = [i]lines do (lines)length to 1=i for |
|||
(("\n",(rip,pun,pgm)substitute_all)split)reverse=lines sequence |
|||
(pgm string)mung function |
|||
(true,"*",("*","",3,7," -<>{}@! ")join_by)split = rip constant |
|||
(true,"*",("*","",1,7,"-,=][)(")join_by)split = nup constant |
|||
(true,"*",("*","",1,7,"-,=[]()")join_by)split = pun constant |
|||
demo\rosetta\inverted_syntax.exw --</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |