on cf70879 help sign in
56 lines 1.1 kB history raw
1### `++sein`
3Direct parent
5Computes the direct parent of `who`.
7Accepts
8-------
10`who` is a [`++ship`]().
12Produces
13--------
15A `++ship`.
17Source
18------
20 ++ sein :: autoboss
21 |= who=ship ^- ship
22 =+ mir=(clan who)
23 ?- mir
24 %czar who
25 %king (end 3 1 who)
26 %duke (end 4 1 who)
27 %earl (end 5 1 who)
28 %pawn `@p`0
29 ==
31Examples
32--------
34 ~zod/main=> (sein ~tasfyn-partyv)
35 ~doznec
36 ~zod/main=> (sein ~doznec)
37 ~zod
38 ~zod/main=> (sein ~zod)
39 ~zod
40 ~zod/main=> (sein ~pittyp-pittyp)
41 ~dalnel
42 ~zod/main=> (sein ~dalnel)
43 ~del
44 ~zod/main=> (sein ~ractul-fodsug-sibryg-modsyl--difrun-mirfun-filrec-patmet)
45 ~zod
47 ~zod/main=> (saxo ~rabdec-monfer)
48 ~[~rabdec-monfer ~dalnel ~del]
49 ~zod/main=> `@rd`~rabdec-monfer
50 0x5fd25
51 [%rlyd 0x5.fd25]
52 0b1.0000.0000.0000.0000.0000.0000.0000.0000.0000.0000.0000.0000.0000
53 ~zod/main=> `@p`0x5.fd25
54 ~rabdec-monfer
56 For `@rd` and `@p` see the [odors](../reference/odors) reference