代码搜索：idel
找到约 314 项符合「idel」的源代码
代码结果 314
www.eeworm.com/read/125133/6032879
idel bmh.idel
\ Boyer-Moore-Horspool string matching
string: pattern "right"
bss-data: buffer 32768
def 0 1 main
pattern.addr pattern.size bmh-init
buffer buffer reading buffer - 500 spin u. '\n' emit
www.eeworm.com/read/125133/6032880
idel random.idel
def 0 1 main
3000000 rands
rand u. '\n' emit
0 ;
def 1 0 rands
{ n --
n if rand { _ -- } n 1 - rands then } ;
#include "../tests/random.idel"
#include "../tests/udot.idel"
www.eeworm.com/read/125133/6032882
idel rev.idel
#define vsize 10000
bss-data: v 40000
def 0 1 main
vsize iota
1000 loop
v @ u. '\n' emit
0 ;
#include "../tests/udot.idel"
#include "../tests/rev.idel"
www.eeworm.com/read/125133/6032884
idel tak.idel
def 0 1 main 27 18 9 tak u. '\n' emit 0 ;
#include "../tests/udot.idel"
#include "../tests/tak.idel"
www.eeworm.com/read/125133/6032893
idel nfib.idel
def 0 1 main 34 nfib u. '\n' emit 0 ;
#include "../tests/udot.idel"
def 1 1 nfib
{ n -- n 2 < if 1
else n 1 - nfib n 2 - nfib + 1 +
then } ;
www.eeworm.com/read/125133/6032894
idel dump.idel
def 2 0 dump-loop
{ a n -- n if a @ x. a separator emit a 4 + n 1 - dump-loop then } ;
def 1 1 separator
4 + 31 and if ' ' else '\n' then ;
def 1 0 x. 7 x.loop ;
def 2 0 x.loop
{ u n
www.eeworm.com/read/125133/6032920
h idel.h
/*
* The Idel virtual machine -- public interface.
* Copyright (C) 2001-2002 Darius Bacon
*/
#ifndef _IDEL
#define _IDEL
enum { idel_major_version = 0 };
enum { idel_minor_version = 1 };
#includ
www.eeworm.com/read/125133/6032949
idel hello.idel
string: hello "Hello, world!\n"
def 0 1 main hello.addr hello.size type 0 ;
#include "../../tests/type.idel"