on bfaa358 help sign in
40 lines 594 B history raw
1### `++clan`
3Ship class
5Accepts
6-------
8`who` is a [`++ship`]()
10Produces
11--------
13A [`%cube`]().
15Source
16------
18 ++ clan :: ship to rank
19 |= who=ship ^- rank
20 =+ wid=(met 3 who)
21 ?: (lte wid 1) %czar
22 ?: =(2 wid) %king
23 ?: (lte wid 4) %duke
24 ?: (lte wid 8) %earl
25 ?> (lte wid 16) %pawn
26 ::
28Examples
29--------
31 ~zod/main=> (clan ~zod)
32 %czar
33 ~zod/main=> (clan ~tyr)
34 %czar
35 ~zod/main=> (clan ~doznec)
36 %king
37 ~zod/main=> (clan ~tasfyn-partyv)
38 %duke