A symmetry of imperfection

Etapa 2 din Xpresso. Show off again. Mai spre seară voi spune mai multe.

E = E = (a^c)bd ^ (a + bd(a+c))

Ca să mă laud mai departe, avem și o parte de cod.

getMidWires :: Int -> Int -> [GateLevel] -> [(Point, Point)]
getMidWires ww hw l = build gateInputs gateOutputs
   where
     grep = getGateRepresentation ww hw l
     gateInputs = concat . map inputs $ grep
     gateOutputs = iw ++ (map outputs $ grep)
     iw = zip (getLevel0 l) (map snd (getInputWires ww hw l))
     build [] outp = []
     build (inp:inps) outp = (snd inp, snd ind) : (build inps outp)
       where
         ind = head (dropWhile f outp)
         f outg = (fst outg) /= (fst inp)

Ne vedem diseară.