Documentation

Line, indicated as sum.

(sum={6,7,8,9}, (yarrow probablity={1,3,5,7}/16, three-coin probablity={2,6}/16, name,signification,symbol))

Lines L6 and L7 are unbroken (since L6 is becoming L7).

Seven character ASCII string for line.

Is line (ie. sum) moving (ie. 6 or 9).

Old yin (L6) becomes yang (L7), and old yang (L9) becomes yin (L8).

Hexagrams are drawn upwards.

Sequence of sum values assigned to ascending four bit numbers.

import  Music.Theory.Bits 
zip (map (gen_bitseq_pp 4) [0::Int .. 15]) (map line_ascii_pp_err four_coin_sequence)

Generate hexagram (ie. sequence of six lines given by sum) using four_coin_sequence.

four_coin_gen_hexagram >>= putStrLn . hexagram_pp

any of line_is_moving.

If hexagram_has_complement then derive it.

h <- four_coin_gen_hexagram
putStrLn (hexagram_pp h)
maybe (return ()) (putStrLn . hexagram_pp) (hexagram_complement h)

Names of hexagrams, in King Wen order.

length hexagram_names == 64

Unicode hexagram characters, in King Wen order.

import Data.List.Split {- split -}
mapM_ putStrLn (chunksOf 8 hexagram_unicode_sequence)