Part of Slepp's ProjectsPastebinTURLImagebinFilebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Advertising

advertising

related pastes to tag 'j'

2079837 - Original J source code, commente: c j
  1.   typedef char C;typedef long I;
  2.   typedef struct a{I t,r,d[3],p[2];}*A;  // array: boxed? rank dims contents
  3.   #define P printf  // monadic op
  4.   #define R return  // dyadic op
  5.   #define V1(f) A f(w)A w;
  6.   #define V2(f) A f(a,w)A a,w;
  7.   #define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
  8.   I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}  // alloc, move
  9.  
953943 - Original J source code, commente: c j
  1.   typedef char C;typedef long I;
  2.   typedef struct a{I t,r,d[3],p[2];}*A;  // array: boxed? rank dims contents
  3.   #define P printf  // monadic op
  4.   #define R return  // dyadic op
  5.   #define V1(f) A f(w)A w;
  6.   #define V2(f) A f(a,w)A a,w;
  7.   #define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
  8.   I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}  // alloc, move
  9.  
891750 - Original J source code, commente: c j
  1.   typedef char C;typedef long I;
  2.   typedef struct a{I t,r,d[3],p[2];}*A;  // array: boxed? rank dims contents
  3.   #define P printf
  4.   #define R return
  5.   #define V1(f) A f(w)A w;  // monadic op
  6.   #define V2(f) A f(a,w)A a,w;  // dyadic op
  7.   #define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
  8.   I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}  // alloc, move
  9.  
891738 - Original J source code, commente: c j
  1.   typedef char C;typedef long I;
  2.   typedef struct a{I t,r,d[3],p[2];}*A;  // array: boxed? rank dims contents
  3.   #define P printf  // monadic op
  4.   #define R return  // dyadic op
  5.   #define V1(f) A f(w)A w;
  6.   #define V2(f) A f(a,w)A a,w;
  7.   #define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
  8.   I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}  // alloc, move
  9.  
695828 - Anonymous: jl j
  1. $ grep SYSTEM_SETTING apps/settings_list.c
  2. #define SYSTEM_SETTING(flags,var,default) \
  3.     SYSTEM_SETTING(NVRAM(4),resume_index,-1),
  4.     SYSTEM_SETTING(NVRAM(4),resume_first_index,0),
  5.     SYSTEM_SETTING(NVRAM(4),resume_offset,-1),
  6.     SYSTEM_SETTING(NVRAM(4),resume_seed,-1),
  7.     SYSTEM_SETTING(NVRAM(4),runtime,0),
  8.     SYSTEM_SETTING(NVRAM(4),topruntime,0),
  9.  
worth-right