[REBOL] Re: Truth and lies (but no statistics) [was Re: WYSIWYG programming]

From: lmecir:geocities at: 30-Oct-2000 22:12

Hi Joel,

you inspired me (like you did many times before) to write:

le?: function [
    {an as general as possible comparison function}
    a [any-type!]
    b [any-type!]
] [block1 block2] [
    block1: make block! 2
    insert/only block1 get/any 'a
    insert/only tail block1 get/any 'b
    block2: make block! 2
    insert/only block2 get/any 'a
    insert/only tail block2 get/any 'b
    block1 = sort block2
]

the results:

>> le? 1 2
== true
>> le? 2 1
== false
>> le? true false
== false
>> le? false true
== true
>> le? true none
== false
>> le? none true
== true
>> le? none ()
== false
>> le? () none
== true
>> le? does [a] does [b]
== true
>> le? does [b] does [a]
== true
>> le? make object! [a: 0] make object! [a: 1]
== false
>> le? make object! [a: 1] make object! [a: 0]
== true
>> le? make object! [a: 0] make object! [a: 0]
== false

Regards
    Ladislav

----- Original Message -----
From: Joel Neely <[joel--neely--fedex--com]>
To: <[rebol-list--rebol--com]>
Sent: Monday, October 30, 2000 8:42 PM
Subject: [REBOL] Truth and lies (but no statistics) [was Re: WYSIWYG
programming]

1 · [2] · See whole thread