λ - programming

x = 5;
while (x → 0) {
    printf("%i\n", x);
}

for (int i = 10; 0 ←10;)
{
  printf("%d", i);
}

#include __FILE__
p;

g++ a.cpp

$ gcc bwuh.c -o bwuh -std=c99
bwuh.c: In function ‘main’:
bwuh.c:4:25: error: lvalue required as decrement operand
     for (int i = 10; 0 ← 10;)

int a[6] = { 1,2,3,4,5,6};

printf("%d\n",  4[a] ) ;

    int buf_size = 10;
    int buf[buf_size];
    int buf_next = 0;

    int i;
    for (i = 0; i < 1000; i++) {
        buf[buf_next++] = i;
        buf_next %= buf_size;
        printf("%d -> %d\n", buf_next, buf[buf_next]);
    }

/* Realloc can act like malloc. */
p = realloc(NULL, 10);

/* Realloc can act like malloc. */
p = realloc(NULL, 10);

/* And free. */
realloc(p, 0);

int c;

c = (getchar() != EOF);
putchar(c);
printf("\n");

getchar() != EOF

printf("%d", c);

putchar(c);

int a, b;
(a > 10? a : b) = a * b;

// i[x] == *(i + x) == *(x + i) == x[i]
128[i] == i[128] // true
// true if strings are represented by same addr
"lainchan"[2] == 'i' == 2["lainchan"] 

typedef struct {
    int id;
    double data[1];
} TS;
// …
size_t const dataSize = 256;
TS *ts = malloc(sizeof(TS) + (dataSize - 1)*sizeof(TS.data[0]));
ts->data[128] = 1337.0;

main(){for(int n[]={3,1,2,0,4},i=0;i<5;i++)printf((char*)&(i[n][((int*)"an \0lai\0nch\0hi \0:D\n")]));}

ifeq ($(verbose),y)
  quiet =
else
  quiet = quiet_
endif

cmd = @$(if $($(quiet)cmd_$(1)),echo '  $(call $(quiet)cmd_$(1),$(2))' &&) $(call cmd_$(1),$(2))

quiet_cmd_cc = CC      $@
      cmd_cc = $(CC) -c $(CPPFLAGS) $(CFLAGS) -o $@ $<

quiet_cmd_ld = LD      $@
      cmd_ld = $(LD) $(LDFLAGS) -o $@ $^ $(1)

%.o: %.c
$(call cmd,cc)

foobar: foo.o bar.o
$(call cmd,ld,-lm)

  CC     foo.o
  CC     bar.o
  LD     foobar

dependencies = $(addprefix ., $(addsuffix .d, $(basename $(objects))))

quiet_cmd_dep = DEP     $@
      cmd_dep = echo "$@ `$(CC) $(CFLAGS) -MM $(CPPFLAGS) $<`" > $@

.%.d: %.c
$(call cmd,dep)

ifneq ($(dependencies),)
-include $(dependencies)
endif

(a > 10? a : b) = a * b;

00:23:14 <@yuuko> darkengine: https://kurofuku.me/u/cons.c

#include <stdio.h>

typedef struct cell cell;
struct cell {
char *s;
cell *next;
};

#define cons(x, y) (cell[]) {{x, y}}

int main()
{
cell *list = cons("this", 
             cons("is",
             cons("a",
             cons("compile-time",
             cons("linked",
     cons("list",
     NULL)))))),
     *l = list;
do {
puts(l->s);
} while (l = l->next);
}

/* Play it like this:
   ./crowd | aplay
*/
main(t){for(;;t++)putchar(((t<<1)^((t<<1)+(t>>7)&t>>12))|t>>(4-(1^7&(t>>19)))|t>>7);}

$ gcc lvalue-test.c -o lvalue-test
lvalue-test.c: In function ‘main’:
lvalue-test.c:6:19: error: lvalue required as left operand of assignment
   (a > 10? a : b) = a * b;

foo[1] is the same as *(foo+1)
1[foo] is the same as *(1+foo) 

"\x03\x02\x01\x00"[2] == '\x01' == 2["\x03\x02\x01\x00"]

sudo apt install cmake

i --> 0

i-- >0