urbit/jets/c/mas.c at sdl · dominic22/urbit · GitHub

8000 urbit/jets/c/mas.c at sdl · dominic22/urbit · GitHub

Repository navigation

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

/* j/3/mas.c

**

*/

#include "all.h"

/* functions

*/

u3_noun

u3qc_mas(u3_atom a)

{

c3_w b_w;

u3_atom c, d, e, f;

b_w = u3r_met(0, a);

if ( b_w < 2 ) {

return u3m_bail(c3__exit);

}

else {

c = u3qc_bex((b_w - 1));

d = u3qc_bex((b_w - 2));

e = u3qa_sub(a, c);

f = u3qc_con(e, d);

u3z(c);

u3z(d);

u3z(e);

return f;

}

}

u3_noun

u3wc_mas(u3_noun cor)

{

u3_noun a;

if ( (u3_none == (a = u3r_at(u3x_sam, cor))) ||

(c3n == u3ud(a)) )

{

return u3m_bail(c3__exit);

} else {

return u3qc_mas(a);

}

}

0