Mercurial > repo

view interps/linguine/bitwise.lng @ 12508:335a2a849232 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wib_jonas> `` f=/hackenv/bin/dateu; >$f echo $\'#!/bin/bash\\nset -e\\nif (( 1 < $# )); then echo "dateu error: too many command-line arguments. Usage: dateu datetimestring"; exit 2; fi\\nexec date -u ${1:+-d "$1"} "+%Y-%m-%d %H:%M:%S.%3N %z %Z %B %-e %A %G-W%V-%u"\'; chmod a+x "$f"
author HackEso <hackeso@esolangs.org>
date Wed, 03 Jul 2024 18:15:24 +0100
parents 859f9b4339e6
children
line wrap: on
line source

'General bitwise routines

'NOT: -2 = NOT(*-2)
'Programmed by Jeffry Johnston, 2005
'-1=return jump
300[-2|*-2]*-1

'AND: -2 &= *-3
'Programmed by Jeffry Johnston, 2005
'-1=return jump
301[-2|*-3,-2|*-2]*-1

'OR: -2 |= *-3
'Programmed by Jeffry Johnston, 2005
'-1=return jump, -4=temp
302[-2|*-2,-4=*-3,-4|*-4,-2|*-4]*-1

'XOR: -2 ^= *-3
'Programmed by Jeffry Johnston, 2005
'-1=return jump, -4=temp
303[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4]*-1

'NOR: -2 = ~(*-2 | *-3)
'Programmed by Jeffry Johnston, 2005
'-1=return jump, -4=temp
304[-2|*-2,-4=*-3,-4|*-4,-2|*-4,-2|*-2]*-1

'XNOR: -2 = ~(*-2 ^ *-3)
'Programmed by Jeffry Johnston, 2005
'-1=return jump, -4=temp
305[-4=*-3,-4|*-2,-2|*-4,-4|*-3,-2|*-4,-2|*-2]*-1

'NEG: -2 = -*-2, -2 = !*-2
'Programmed by Jeffry Johnston, 2005
'-1=return jump
306[-3=*-2,-2=0,-2-*-3]*-1