% % Simple variant: % from http://twan.home.fmf.nl/blog/haskell/Nonograms.details % (2 solutions) rows = 4; row_rule_len = 2; row_rules = array2d(1..rows, 1..row_rule_len, [ 1,1, 1,1, 1,1, 1,1 ]); cols = 4; col_rule_len = 2; col_rules = array2d(1..cols, 1..col_rule_len, [ 1,1, 1,1, 1,1, 1,1, ]);