From mboxrd@z Thu Jan 1 00:00:00 1970 Received: (from majordomo@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id UAA26717; Sat, 1 Feb 2003 20:27:31 +0100 (MET) X-Authentication-Warning: pauillac.inria.fr: majordomo set sender to owner-caml-list@pauillac.inria.fr using -f Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id UAA27331 for ; Sat, 1 Feb 2003 20:27:30 +0100 (MET) Received: from mx12.arcor-online.net (mx12.arcor-online.net [151.189.8.88]) by concorde.inria.fr (8.11.1/8.11.1) with ESMTP id h11JRTf15830 for ; Sat, 1 Feb 2003 20:27:29 +0100 (MET) Received: from diebuntekuh.de (dialin-212-144-186-124.arcor-ip.net [212.144.186.124]) by mx12.arcor-online.net (Postfix) with ESMTP id 7CF6BB338B for ; Sat, 1 Feb 2003 20:27:28 +0100 (CET) Received: by diebuntekuh.de (Postfix, from userid 500) id 6E78F3D8AB; Sat, 1 Feb 2003 20:10:23 +0100 (CET) To: OCaml List Subject: [Caml-list] xor on booleans From: Christoph Bauer Date: 01 Feb 2003 20:10:23 +0100 Message-ID: User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Sender: owner-caml-list@pauillac.inria.fr Precedence: bulk Hi, a little suggestion for the Pervasives module: the xor operator on booleans let (^^) = (<>) Christoph Bauer -- proc self {} {foreach c [split [info body self] ""] d {14 -7 0 0 4 -67 4 73 11 69 24 -83 -15 6 -4 -84 78 20 11 -78 -1 -1 79 19 -8 4} { binary scan $c c c if {[catch {append r [format %c [expr $c+$d]]}]} {return $r};}};puts [self] ------------------- To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/ Beginner's list: http://groups.yahoo.com/group/ocaml_beginners