Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Spoiler: LISP is useless

Name: Anonymous 2009-10-28 21:29

Name one noteworthy program that was coded in LISP.

I'll wait.

Name: Anonymous 2009-10-30 14:50

A more readable version, as a token of good faith.



computeGraph removalOrder = 

   zip (init edgeStarts ++ [lastVertex]) (removalOrder ++ [last edgeStarts])

   where

      vertices = [1..maximum removalOrder + 2]

      ((lastVertex:_), edgeStarts) = mapAccumL getStart vertices (tails removalOrder)

      getStart vertices order = ((,) =<< (vertices \\) . (:[])) $ head (vertices \\ order)

Newer Posts