Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: finest-same?

From: lmecir:mbox:vol:cz at: 17-Feb-2003 16:17

Hi Romano, <<Romano>> identical-w?: func [a [word!] b [word!]][ identical? get/any a get/any b ] finest-same?: func [a [word!] b [word!]][ if identical-w? a b [ if series? get/any a [return true] if same-references? a b [return true] ] false ] <</Romano>> I think, that your function compares words. An equvivalent rewrite: finest-same?: func [a [word!] b [word!]] [ found? all [ identical-w? a b any [ series? get/any a same-references? a b ] ] My description of your function: the function finds two words equivalent, if they both refer to one value and the value is either a series or both words are same references. The IDENTICAL? equivalence is finer, any time IDENTICAL? finds two words identical, you will find out, that they are FINEST-SAME? too.