Same fringe: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
No edit summary |
||
Line 1,986: | Line 1,986: | ||
"done" |
"done" |
||
</pre> |
</pre> |
||
=={{header|Phixmonti}}== |
|||
<syntaxhighlight lang="Phixmonti">include ..\Utilitys.pmt |
|||
( |
|||
/# 1..3 are same #/ |
|||
( "d" ( "c" ( "a" "b" ) ) ) |
|||
( ( "d" "c" ) ( "a" "b" ) ) |
|||
( ( ( "d" "c" ) "a" ) "b" ) |
|||
/# and this one"s different! #/ |
|||
( ( ( ( ( ( "a" ) "b" ) "c" ) "d" ) "e" ) "f" ) |
|||
) |
|||
dup |
|||
len for >ps |
|||
tps get flatten ps> set |
|||
endfor |
|||
len 1 - for >ps |
|||
tps get swap tps 1 + get rot == |
|||
( "Tree " tps " and " ps> 1 + " is " ) lprint |
|||
if "the same." else "different." endif ? |
|||
endfor</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Tree 1 and 2 is the same. |
|||
Tree 2 and 3 is the same. |
|||
Tree 3 and 4 is different. |
|||
=== Press any key to exit ===</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |