代码搜索：idel
找到约 314 项符合「idel」的源代码
代码结果 314
www.eeworm.com/read/125133/6032826
idel hello.idel
string: hello "Hello, world!\n"
def 0 1 main hello.addr hello.size type 0 ;
#include "type.idel"
www.eeworm.com/read/125133/6032828
idel loop.idel
def 0 1 main recurse 0 ;
def 0 0 recurse recurse ;
www.eeworm.com/read/125133/6032830
idel tak.idel
def 3 1 tak
{ x y z -- y x < if
x 1 - y z tak
y 1 - z x tak
z 1 - x y tak tak
else
z
then } ;
www.eeworm.com/read/125133/6032832
idel copy.idel
def 0 1 main copying 0 ;
def 0 0 copying
absorb { c -- c 0 < if
else c emit copying
then } ;
www.eeworm.com/read/125133/6032834
idel data.idel
bytes: bar
1 2 3
;bytes
ints: foo
'*' 1 0
;ints
def 0 1 main
0 0 c@ +
1 c@ +
2 c@ +
4 @ +
8 @ +
12 @ +
emit
'\n' emit
bar '0' + emit
foo '0' + emit
www.eeworm.com/read/125133/6032839
idel recurse.idel
def 0 1 main recurse 0 ;
def 0 0 recurse recurse recurse ;
www.eeworm.com/read/125133/6032841
idel undef.idel
\ Evokes an old bug in the assembler.
def 0 1 foo 42 { x -- } 0 ;
def 0 0 bar x emit ;
www.eeworm.com/read/125133/6032842
idel fact.idel
def 0 1 main 5 fact u. '\n' emit 0 ;
#include "udot.idel"
def 1 1 fact 1 fact-loop ;
def 2 1 fact-loop
{ n p -- n 0 = if
p
else
n 1 - p n * fact-l
www.eeworm.com/read/125133/6032846
idel unaligned.idel
def 0 1 main 43 @ { x -- } 0 ;
bss-data: foo 48