代码搜索：idel
找到约 314 项符合「idel」的源代码
代码结果 314
www.eeworm.com/read/125133/6032775
idel hello.idel
string: hello "Hello, world!\n"
def 0 1 main hello.addr hello.size type 0 ;
#include "../../tests/type.idel"
www.eeworm.com/read/125133/6032784
idel junk.idel
string: A "Gooey kablooey said Ratface Huey"
bss-data: A-digested 20
string: B "When in the course of human events"
bss-data: B-digested 20
def 0 1 main
A-digested A.addr A.size digest
B-digeste
www.eeworm.com/read/125133/6032790
idel calc.idel
\ Simple infix calculator.
def 0 1 main
next-char next
0 expr . '\n' emit
0 ;
#include "../../tests/udot.idel"
def 2 1 / /mod { quot rem -- quot } ;
def 2 1 mod /mod { quot rem -- rem
www.eeworm.com/read/125133/6032793
idel rldecode.idel
\ Running this:
\ rlencode some-input-file | run rldecode.idel
\ should reproduce some-input-file on standard output.
def 0 1 main decode 0 ;
def 0 0 decode
absorb { code -- code 0 < if
www.eeworm.com/read/125133/6032806
idel fib.idel
def 1 1 fib
{ n -- n 2 < if 1
else n 1 - fib n 2 - fib +
then } ;
www.eeworm.com/read/125133/6032810
idel hotpo.idel
def 1 1 hotpo
{ k -- k 1 and if k k + k + 1 + else k 1 >> then } ;
def 2 1 hotpo-loop
{ k p -- k 1 = if
p
else
k hotpo p 1 + hotpo-loop
www.eeworm.com/read/125133/6032812
idel wc.idel
def 0 1 main
0 0 0 out
{ lines words chars --
lines u. '\t' emit words u. '\t' emit chars u. '\n' emit }
0 ;
#include "udot.idel"
#define c_isspace c ' ' = c '\t' = or
def 3 3 o
www.eeworm.com/read/125133/6032814
idel primes.idel
def 0 1 main 2 test-primes '\n' emit 0 ;
def 2 1 umod
u/mod { quot rem -- rem } ;
def 2 1 divides?
{ divisor n -- n divisor umod 0 = } ;
def 2 1 dividing
{ n k -- n k k *
www.eeworm.com/read/125133/6032816
idel random.idel
\ Minimal Standard Random Number Generator
\ Park & Miller, CACM 31(10), Oct 1988, 32 bit integer version.
\ better constants, as proposed by Park.
\ Adapted from the Scheme version by Ozan Yigit modi
www.eeworm.com/read/125133/6032825
idel udot.idel
def 2 1 u/ u/mod { quot rem -- quot } ;
def 2 1 umod u/mod { quot rem -- rem } ;
def 1 0 u.
{ u -- 9 u u< if u 10 u/ u. then
u 10 umod '0' + emit } ;