diff options
| -rw-r--r-- | Crosswords.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Crosswords.icl b/Crosswords.icl index 21cb2c4..038dc5b 100644 --- a/Crosswords.icl +++ b/Crosswords.icl @@ -38,6 +38,7 @@ Start w # (words,io) = readWords [] io # (ok,w) = fclose io w # cw = makeCrossword rand words +# cw = trace_n ("\nIntermediate:\n" + toString cw) cw # cw = fill rand fillwords cw # cw = trace_n ("\nResult:\n" + toString cw) cw = toLaTeX cw @@ -138,7 +139,7 @@ where // Make a crossword, try to lay all words connected makeCrossword :: RandomSeed [[#Char]] -> Crossword -makeCrossword r words = place r fits (sortl words) 0 zero +makeCrossword r words = place r fits words 0 zero // Place a number of words in a crossword, satisfying a predicate place :: RandomSeed PlacementOK [[#Char]] Int Crossword -> Crossword |