mortar-pygments.rb 0.5.5
Sign up to get free protection for your applications and to get access to all the features.
- data/.gitignore +6 -0
- data/CHANGELOG.md +71 -0
- data/Gemfile +2 -0
- data/LICENSE +17 -0
- data/README.md +121 -0
- data/Rakefile +66 -0
- data/bench.rb +22 -0
- data/cache-lexers.rb +8 -0
- data/lexers +0 -0
- data/lib/pygments/lexer.rb +148 -0
- data/lib/pygments/mentos.py +351 -0
- data/lib/pygments/popen.rb +406 -0
- data/lib/pygments/version.rb +3 -0
- data/lib/pygments.rb +8 -0
- data/pygments.rb.gemspec +25 -0
- data/test/test_data.c +2581 -0
- data/test/test_data.py +514 -0
- data/test/test_data_generated +2582 -0
- data/test/test_pygments.rb +287 -0
- data/vendor/custom_lexers/github.py +565 -0
- data/vendor/pygments-main/AUTHORS +153 -0
- data/vendor/pygments-main/CHANGES +889 -0
- data/vendor/pygments-main/LICENSE +25 -0
- data/vendor/pygments-main/MANIFEST.in +6 -0
- data/vendor/pygments-main/Makefile +59 -0
- data/vendor/pygments-main/REVISION +1 -0
- data/vendor/pygments-main/TODO +15 -0
- data/vendor/pygments-main/docs/generate.py +472 -0
- data/vendor/pygments-main/docs/pygmentize.1 +94 -0
- data/vendor/pygments-main/docs/src/api.txt +270 -0
- data/vendor/pygments-main/docs/src/authors.txt +5 -0
- data/vendor/pygments-main/docs/src/changelog.txt +5 -0
- data/vendor/pygments-main/docs/src/cmdline.txt +147 -0
- data/vendor/pygments-main/docs/src/filterdevelopment.txt +70 -0
- data/vendor/pygments-main/docs/src/filters.txt +42 -0
- data/vendor/pygments-main/docs/src/formatterdevelopment.txt +169 -0
- data/vendor/pygments-main/docs/src/formatters.txt +48 -0
- data/vendor/pygments-main/docs/src/index.txt +69 -0
- data/vendor/pygments-main/docs/src/installation.txt +71 -0
- data/vendor/pygments-main/docs/src/integrate.txt +48 -0
- data/vendor/pygments-main/docs/src/java.txt +70 -0
- data/vendor/pygments-main/docs/src/lexerdevelopment.txt +603 -0
- data/vendor/pygments-main/docs/src/lexers.txt +67 -0
- data/vendor/pygments-main/docs/src/moinmoin.txt +39 -0
- data/vendor/pygments-main/docs/src/plugins.txt +93 -0
- data/vendor/pygments-main/docs/src/quickstart.txt +202 -0
- data/vendor/pygments-main/docs/src/rstdirective.txt +22 -0
- data/vendor/pygments-main/docs/src/styles.txt +143 -0
- data/vendor/pygments-main/docs/src/tokens.txt +349 -0
- data/vendor/pygments-main/docs/src/unicode.txt +49 -0
- data/vendor/pygments-main/external/autopygmentize +64 -0
- data/vendor/pygments-main/external/lasso-builtins-generator-9.lasso +144 -0
- data/vendor/pygments-main/external/markdown-processor.py +67 -0
- data/vendor/pygments-main/external/moin-parser.py +112 -0
- data/vendor/pygments-main/external/pygments.bashcomp +38 -0
- data/vendor/pygments-main/external/rst-directive-old.py +77 -0
- data/vendor/pygments-main/external/rst-directive.py +83 -0
- data/vendor/pygments-main/ez_setup.py +276 -0
- data/vendor/pygments-main/pygmentize +7 -0
- data/vendor/pygments-main/pygments/__init__.py +91 -0
- data/vendor/pygments-main/pygments/cmdline.py +441 -0
- data/vendor/pygments-main/pygments/console.py +74 -0
- data/vendor/pygments-main/pygments/filter.py +74 -0
- data/vendor/pygments-main/pygments/filters/__init__.py +356 -0
- data/vendor/pygments-main/pygments/formatter.py +95 -0
- data/vendor/pygments-main/pygments/formatters/__init__.py +68 -0
- data/vendor/pygments-main/pygments/formatters/_mapping.py +92 -0
- data/vendor/pygments-main/pygments/formatters/bbcode.py +109 -0
- data/vendor/pygments-main/pygments/formatters/html.py +821 -0
- data/vendor/pygments-main/pygments/formatters/img.py +553 -0
- data/vendor/pygments-main/pygments/formatters/latex.py +378 -0
- data/vendor/pygments-main/pygments/formatters/other.py +115 -0
- data/vendor/pygments-main/pygments/formatters/rtf.py +136 -0
- data/vendor/pygments-main/pygments/formatters/svg.py +154 -0
- data/vendor/pygments-main/pygments/formatters/terminal.py +112 -0
- data/vendor/pygments-main/pygments/formatters/terminal256.py +222 -0
- data/vendor/pygments-main/pygments/lexer.py +765 -0
- data/vendor/pygments-main/pygments/lexers/__init__.py +240 -0
- data/vendor/pygments-main/pygments/lexers/_asybuiltins.py +1645 -0
- data/vendor/pygments-main/pygments/lexers/_clbuiltins.py +232 -0
- data/vendor/pygments-main/pygments/lexers/_lassobuiltins.py +5172 -0
- data/vendor/pygments-main/pygments/lexers/_luabuiltins.py +249 -0
- data/vendor/pygments-main/pygments/lexers/_mapping.py +355 -0
- data/vendor/pygments-main/pygments/lexers/_openedgebuiltins.py +562 -0
- data/vendor/pygments-main/pygments/lexers/_phpbuiltins.py +3787 -0
- data/vendor/pygments-main/pygments/lexers/_postgres_builtins.py +233 -0
- data/vendor/pygments-main/pygments/lexers/_robotframeworklexer.py +557 -0
- data/vendor/pygments-main/pygments/lexers/_scilab_builtins.py +40 -0
- data/vendor/pygments-main/pygments/lexers/_sourcemodbuiltins.py +1072 -0
- data/vendor/pygments-main/pygments/lexers/_stan_builtins.py +360 -0
- data/vendor/pygments-main/pygments/lexers/_vimbuiltins.py +13 -0
- data/vendor/pygments-main/pygments/lexers/agile.py +2290 -0
- data/vendor/pygments-main/pygments/lexers/asm.py +398 -0
- data/vendor/pygments-main/pygments/lexers/compiled.py +3723 -0
- data/vendor/pygments-main/pygments/lexers/dalvik.py +104 -0
- data/vendor/pygments-main/pygments/lexers/dotnet.py +671 -0
- data/vendor/pygments-main/pygments/lexers/foxpro.py +428 -0
- data/vendor/pygments-main/pygments/lexers/functional.py +2731 -0
- data/vendor/pygments-main/pygments/lexers/github.py +565 -0
- data/vendor/pygments-main/pygments/lexers/hdl.py +356 -0
- data/vendor/pygments-main/pygments/lexers/jvm.py +1112 -0
- data/vendor/pygments-main/pygments/lexers/math.py +1918 -0
- data/vendor/pygments-main/pygments/lexers/other.py +3778 -0
- data/vendor/pygments-main/pygments/lexers/parsers.py +778 -0
- data/vendor/pygments-main/pygments/lexers/shell.py +424 -0
- data/vendor/pygments-main/pygments/lexers/special.py +100 -0
- data/vendor/pygments-main/pygments/lexers/sql.py +609 -0
- data/vendor/pygments-main/pygments/lexers/templates.py +1742 -0
- data/vendor/pygments-main/pygments/lexers/text.py +1893 -0
- data/vendor/pygments-main/pygments/lexers/web.py +4045 -0
- data/vendor/pygments-main/pygments/modeline.py +40 -0
- data/vendor/pygments-main/pygments/plugin.py +74 -0
- data/vendor/pygments-main/pygments/scanner.py +104 -0
- data/vendor/pygments-main/pygments/style.py +117 -0
- data/vendor/pygments-main/pygments/styles/__init__.py +70 -0
- data/vendor/pygments-main/pygments/styles/autumn.py +65 -0
- data/vendor/pygments-main/pygments/styles/borland.py +51 -0
- data/vendor/pygments-main/pygments/styles/bw.py +49 -0
- data/vendor/pygments-main/pygments/styles/colorful.py +81 -0
- data/vendor/pygments-main/pygments/styles/default.py +73 -0
- data/vendor/pygments-main/pygments/styles/emacs.py +72 -0
- data/vendor/pygments-main/pygments/styles/friendly.py +72 -0
- data/vendor/pygments-main/pygments/styles/fruity.py +42 -0
- data/vendor/pygments-main/pygments/styles/manni.py +75 -0
- data/vendor/pygments-main/pygments/styles/monokai.py +106 -0
- data/vendor/pygments-main/pygments/styles/murphy.py +80 -0
- data/vendor/pygments-main/pygments/styles/native.py +65 -0
- data/vendor/pygments-main/pygments/styles/pastie.py +75 -0
- data/vendor/pygments-main/pygments/styles/perldoc.py +69 -0
- data/vendor/pygments-main/pygments/styles/rrt.py +33 -0
- data/vendor/pygments-main/pygments/styles/tango.py +141 -0
- data/vendor/pygments-main/pygments/styles/trac.py +63 -0
- data/vendor/pygments-main/pygments/styles/vim.py +63 -0
- data/vendor/pygments-main/pygments/styles/vs.py +38 -0
- data/vendor/pygments-main/pygments/token.py +195 -0
- data/vendor/pygments-main/pygments/unistring.py +140 -0
- data/vendor/pygments-main/pygments/util.py +277 -0
- data/vendor/pygments-main/scripts/check_sources.py +242 -0
- data/vendor/pygments-main/scripts/detect_missing_analyse_text.py +32 -0
- data/vendor/pygments-main/scripts/epydoc.css +280 -0
- data/vendor/pygments-main/scripts/find_codetags.py +205 -0
- data/vendor/pygments-main/scripts/find_error.py +170 -0
- data/vendor/pygments-main/scripts/get_vimkw.py +43 -0
- data/vendor/pygments-main/scripts/pylintrc +301 -0
- data/vendor/pygments-main/scripts/reindent.py +291 -0
- data/vendor/pygments-main/scripts/vim2pygments.py +933 -0
- data/vendor/pygments-main/setup.cfg +7 -0
- data/vendor/pygments-main/setup.py +90 -0
- data/vendor/pygments-main/tests/dtds/HTML4-f.dtd +37 -0
- data/vendor/pygments-main/tests/dtds/HTML4-s.dtd +869 -0
- data/vendor/pygments-main/tests/dtds/HTML4.dcl +88 -0
- data/vendor/pygments-main/tests/dtds/HTML4.dtd +1092 -0
- data/vendor/pygments-main/tests/dtds/HTML4.soc +9 -0
- data/vendor/pygments-main/tests/dtds/HTMLlat1.ent +195 -0
- data/vendor/pygments-main/tests/dtds/HTMLspec.ent +77 -0
- data/vendor/pygments-main/tests/dtds/HTMLsym.ent +241 -0
- data/vendor/pygments-main/tests/examplefiles/ANTLRv3.g +608 -0
- data/vendor/pygments-main/tests/examplefiles/AcidStateAdvanced.hs +209 -0
- data/vendor/pygments-main/tests/examplefiles/AlternatingGroup.mu +102 -0
- data/vendor/pygments-main/tests/examplefiles/BOM.js +1 -0
- data/vendor/pygments-main/tests/examplefiles/CPDictionary.j +611 -0
- data/vendor/pygments-main/tests/examplefiles/Config.in.cache +1973 -0
- data/vendor/pygments-main/tests/examplefiles/Constants.mo +158 -0
- data/vendor/pygments-main/tests/examplefiles/DancingSudoku.lhs +411 -0
- data/vendor/pygments-main/tests/examplefiles/Deflate.fs +578 -0
- data/vendor/pygments-main/tests/examplefiles/Errors.scala +18 -0
- data/vendor/pygments-main/tests/examplefiles/File.hy +174 -0
- data/vendor/pygments-main/tests/examplefiles/Get-CommandDefinitionHtml.ps1 +66 -0
- data/vendor/pygments-main/tests/examplefiles/IPDispatchC.nc +104 -0
- data/vendor/pygments-main/tests/examplefiles/IPDispatchP.nc +671 -0
- data/vendor/pygments-main/tests/examplefiles/Intro.java +1660 -0
- data/vendor/pygments-main/tests/examplefiles/Makefile +1131 -0
- data/vendor/pygments-main/tests/examplefiles/Object.st +4394 -0
- data/vendor/pygments-main/tests/examplefiles/OrderedMap.hx +584 -0
- data/vendor/pygments-main/tests/examplefiles/RoleQ.pm6 +23 -0
- data/vendor/pygments-main/tests/examplefiles/SmallCheck.hs +378 -0
- data/vendor/pygments-main/tests/examplefiles/Sorting.mod +470 -0
- data/vendor/pygments-main/tests/examplefiles/Sudoku.lhs +382 -0
- data/vendor/pygments-main/tests/examplefiles/addressbook.proto +30 -0
- data/vendor/pygments-main/tests/examplefiles/antlr_throws +1 -0
- data/vendor/pygments-main/tests/examplefiles/apache2.conf +393 -0
- data/vendor/pygments-main/tests/examplefiles/as3_test.as +143 -0
- data/vendor/pygments-main/tests/examplefiles/as3_test2.as +46 -0
- data/vendor/pygments-main/tests/examplefiles/as3_test3.as +3 -0
- data/vendor/pygments-main/tests/examplefiles/aspx-cs_example +27 -0
- data/vendor/pygments-main/tests/examplefiles/autoit_submit.au3 +25 -0
- data/vendor/pygments-main/tests/examplefiles/badcase.java +2 -0
- data/vendor/pygments-main/tests/examplefiles/batchfile.bat +49 -0
- data/vendor/pygments-main/tests/examplefiles/bigtest.nsi +308 -0
- data/vendor/pygments-main/tests/examplefiles/boot-9.scm +1557 -0
- data/vendor/pygments-main/tests/examplefiles/ca65_example +284 -0
- data/vendor/pygments-main/tests/examplefiles/cbmbas_example +9 -0
- data/vendor/pygments-main/tests/examplefiles/cells.ps +515 -0
- data/vendor/pygments-main/tests/examplefiles/ceval.c +2604 -0
- data/vendor/pygments-main/tests/examplefiles/cheetah_example.html +13 -0
- data/vendor/pygments-main/tests/examplefiles/classes.dylan +125 -0
- data/vendor/pygments-main/tests/examplefiles/condensed_ruby.rb +10 -0
- data/vendor/pygments-main/tests/examplefiles/coq_RelationClasses +447 -0
- data/vendor/pygments-main/tests/examplefiles/database.pytb +20 -0
- data/vendor/pygments-main/tests/examplefiles/de.MoinMoin.po +2461 -0
- data/vendor/pygments-main/tests/examplefiles/demo.ahk +181 -0
- data/vendor/pygments-main/tests/examplefiles/demo.cfm +38 -0
- data/vendor/pygments-main/tests/examplefiles/django_sample.html+django +68 -0
- data/vendor/pygments-main/tests/examplefiles/dwarf.cw +17 -0
- data/vendor/pygments-main/tests/examplefiles/erl_session +10 -0
- data/vendor/pygments-main/tests/examplefiles/escape_semicolon.clj +1 -0
- data/vendor/pygments-main/tests/examplefiles/evil_regex.js +48 -0
- data/vendor/pygments-main/tests/examplefiles/example.Rd +78 -0
- data/vendor/pygments-main/tests/examplefiles/example.bug +54 -0
- data/vendor/pygments-main/tests/examplefiles/example.c +2080 -0
- data/vendor/pygments-main/tests/examplefiles/example.ceylon +52 -0
- data/vendor/pygments-main/tests/examplefiles/example.clay +33 -0
- data/vendor/pygments-main/tests/examplefiles/example.cls +15 -0
- data/vendor/pygments-main/tests/examplefiles/example.cob +3556 -0
- data/vendor/pygments-main/tests/examplefiles/example.cpp +2363 -0
- data/vendor/pygments-main/tests/examplefiles/example.gs +106 -0
- data/vendor/pygments-main/tests/examplefiles/example.gst +7 -0
- data/vendor/pygments-main/tests/examplefiles/example.hx +142 -0
- data/vendor/pygments-main/tests/examplefiles/example.jag +48 -0
- data/vendor/pygments-main/tests/examplefiles/example.kt +47 -0
- data/vendor/pygments-main/tests/examplefiles/example.lagda +19 -0
- data/vendor/pygments-main/tests/examplefiles/example.lua +250 -0
- data/vendor/pygments-main/tests/examplefiles/example.monkey +152 -0
- data/vendor/pygments-main/tests/examplefiles/example.moo +26 -0
- data/vendor/pygments-main/tests/examplefiles/example.moon +629 -0
- data/vendor/pygments-main/tests/examplefiles/example.msc +43 -0
- data/vendor/pygments-main/tests/examplefiles/example.nim +1010 -0
- data/vendor/pygments-main/tests/examplefiles/example.ns2 +69 -0
- data/vendor/pygments-main/tests/examplefiles/example.p +34 -0
- data/vendor/pygments-main/tests/examplefiles/example.pas +2708 -0
- data/vendor/pygments-main/tests/examplefiles/example.prg +161 -0
- data/vendor/pygments-main/tests/examplefiles/example.rb +1852 -0
- data/vendor/pygments-main/tests/examplefiles/example.reg +19 -0
- data/vendor/pygments-main/tests/examplefiles/example.rexx +50 -0
- data/vendor/pygments-main/tests/examplefiles/example.rhtml +561 -0
- data/vendor/pygments-main/tests/examplefiles/example.rkt +95 -0
- data/vendor/pygments-main/tests/examplefiles/example.rpf +4 -0
- data/vendor/pygments-main/tests/examplefiles/example.sh-session +19 -0
- data/vendor/pygments-main/tests/examplefiles/example.shell-session +45 -0
- data/vendor/pygments-main/tests/examplefiles/example.sml +156 -0
- data/vendor/pygments-main/tests/examplefiles/example.snobol +15 -0
- data/vendor/pygments-main/tests/examplefiles/example.stan +108 -0
- data/vendor/pygments-main/tests/examplefiles/example.tea +34 -0
- data/vendor/pygments-main/tests/examplefiles/example.ts +28 -0
- data/vendor/pygments-main/tests/examplefiles/example.u +548 -0
- data/vendor/pygments-main/tests/examplefiles/example.weechatlog +9 -0
- data/vendor/pygments-main/tests/examplefiles/example.xhtml +376 -0
- data/vendor/pygments-main/tests/examplefiles/example.xtend +34 -0
- data/vendor/pygments-main/tests/examplefiles/example.yaml +302 -0
- data/vendor/pygments-main/tests/examplefiles/example2.aspx +29 -0
- data/vendor/pygments-main/tests/examplefiles/example2.msc +79 -0
- data/vendor/pygments-main/tests/examplefiles/example_elixir.ex +363 -0
- data/vendor/pygments-main/tests/examplefiles/example_file.fy +128 -0
- data/vendor/pygments-main/tests/examplefiles/firefox.mak +586 -0
- data/vendor/pygments-main/tests/examplefiles/flipflop.sv +19 -0
- data/vendor/pygments-main/tests/examplefiles/foo.sce +6 -0
- data/vendor/pygments-main/tests/examplefiles/format.ml +1213 -0
- data/vendor/pygments-main/tests/examplefiles/fucked_up.rb +77 -0
- data/vendor/pygments-main/tests/examplefiles/function.mu +1 -0
- data/vendor/pygments-main/tests/examplefiles/functional.rst +1472 -0
- data/vendor/pygments-main/tests/examplefiles/garcia-wachs.kk +133 -0
- data/vendor/pygments-main/tests/examplefiles/genclass.clj +510 -0
- data/vendor/pygments-main/tests/examplefiles/genshi_example.xml+genshi +193 -0
- data/vendor/pygments-main/tests/examplefiles/genshitext_example.genshitext +33 -0
- data/vendor/pygments-main/tests/examplefiles/glsl.frag +7 -0
- data/vendor/pygments-main/tests/examplefiles/glsl.vert +13 -0
- data/vendor/pygments-main/tests/examplefiles/grammar-test.p6 +22 -0
- data/vendor/pygments-main/tests/examplefiles/hello.smali +40 -0
- data/vendor/pygments-main/tests/examplefiles/hello.sp +9 -0
- data/vendor/pygments-main/tests/examplefiles/html+php_faulty.php +1 -0
- data/vendor/pygments-main/tests/examplefiles/http_request_example +15 -0
- data/vendor/pygments-main/tests/examplefiles/http_response_example +29 -0
- data/vendor/pygments-main/tests/examplefiles/import.hs +4 -0
- data/vendor/pygments-main/tests/examplefiles/inet_pton6.dg +71 -0
- data/vendor/pygments-main/tests/examplefiles/intro.ik +24 -0
- data/vendor/pygments-main/tests/examplefiles/ints.php +10 -0
- data/vendor/pygments-main/tests/examplefiles/intsyn.fun +675 -0
- data/vendor/pygments-main/tests/examplefiles/intsyn.sig +286 -0
- data/vendor/pygments-main/tests/examplefiles/irb_heredoc +8 -0
- data/vendor/pygments-main/tests/examplefiles/irc.lsp +214 -0
- data/vendor/pygments-main/tests/examplefiles/java.properties +16 -0
- data/vendor/pygments-main/tests/examplefiles/jbst_example1.jbst +28 -0
- data/vendor/pygments-main/tests/examplefiles/jbst_example2.jbst +45 -0
- data/vendor/pygments-main/tests/examplefiles/jinjadesignerdoc.rst +713 -0
- data/vendor/pygments-main/tests/examplefiles/json.lasso +301 -0
- data/vendor/pygments-main/tests/examplefiles/json.lasso9 +213 -0
- data/vendor/pygments-main/tests/examplefiles/lighttpd_config.conf +13 -0
- data/vendor/pygments-main/tests/examplefiles/linecontinuation.py +47 -0
- data/vendor/pygments-main/tests/examplefiles/livescript-demo.ls +41 -0
- data/vendor/pygments-main/tests/examplefiles/logos_example.xm +28 -0
- data/vendor/pygments-main/tests/examplefiles/ltmain.sh +2849 -0
- data/vendor/pygments-main/tests/examplefiles/main.cmake +42 -0
- data/vendor/pygments-main/tests/examplefiles/markdown.lsp +679 -0
- data/vendor/pygments-main/tests/examplefiles/matlab_noreturn +3 -0
- data/vendor/pygments-main/tests/examplefiles/matlab_sample +30 -0
- data/vendor/pygments-main/tests/examplefiles/matlabsession_sample.txt +37 -0
- data/vendor/pygments-main/tests/examplefiles/metagrammar.treetop +455 -0
- data/vendor/pygments-main/tests/examplefiles/mg_sample.pro +73 -0
- data/vendor/pygments-main/tests/examplefiles/minehunt.qml +112 -0
- data/vendor/pygments-main/tests/examplefiles/minimal.ns2 +4 -0
- data/vendor/pygments-main/tests/examplefiles/moin_SyntaxReference.txt +340 -0
- data/vendor/pygments-main/tests/examplefiles/multiline_regexes.rb +38 -0
- data/vendor/pygments-main/tests/examplefiles/nanomsg.intr +95 -0
- data/vendor/pygments-main/tests/examplefiles/nasm_aoutso.asm +96 -0
- data/vendor/pygments-main/tests/examplefiles/nasm_objexe.asm +30 -0
- data/vendor/pygments-main/tests/examplefiles/nemerle_sample.n +87 -0
- data/vendor/pygments-main/tests/examplefiles/nginx_nginx.conf +118 -0
- data/vendor/pygments-main/tests/examplefiles/numbers.c +12 -0
- data/vendor/pygments-main/tests/examplefiles/objc_example.m +32 -0
- data/vendor/pygments-main/tests/examplefiles/objc_example2.m +24 -0
- data/vendor/pygments-main/tests/examplefiles/perl_misc +62 -0
- data/vendor/pygments-main/tests/examplefiles/perl_perl5db +998 -0
- data/vendor/pygments-main/tests/examplefiles/perl_regex-delims +120 -0
- data/vendor/pygments-main/tests/examplefiles/perlfunc.1 +856 -0
- data/vendor/pygments-main/tests/examplefiles/phpMyAdmin.spec +163 -0
- data/vendor/pygments-main/tests/examplefiles/phpcomplete.vim +567 -0
- data/vendor/pygments-main/tests/examplefiles/pleac.in.rb +1223 -0
- data/vendor/pygments-main/tests/examplefiles/postgresql_test.txt +47 -0
- data/vendor/pygments-main/tests/examplefiles/pppoe.applescript +10 -0
- data/vendor/pygments-main/tests/examplefiles/psql_session.txt +122 -0
- data/vendor/pygments-main/tests/examplefiles/py3_test.txt +2 -0
- data/vendor/pygments-main/tests/examplefiles/py3tb_test.py3tb +4 -0
- data/vendor/pygments-main/tests/examplefiles/pycon_test.pycon +14 -0
- data/vendor/pygments-main/tests/examplefiles/pytb_test2.pytb +2 -0
- data/vendor/pygments-main/tests/examplefiles/pytb_test3.pytb +4 -0
- data/vendor/pygments-main/tests/examplefiles/python25-bsd.mak +234 -0
- data/vendor/pygments-main/tests/examplefiles/qsort.prolog +13 -0
- data/vendor/pygments-main/tests/examplefiles/r-console-transcript.Rout +38 -0
- data/vendor/pygments-main/tests/examplefiles/ragel-cpp_rlscan +280 -0
- data/vendor/pygments-main/tests/examplefiles/ragel-cpp_snippet +2 -0
- data/vendor/pygments-main/tests/examplefiles/regex.js +22 -0
- data/vendor/pygments-main/tests/examplefiles/reversi.lsp +427 -0
- data/vendor/pygments-main/tests/examplefiles/robotframework.txt +39 -0
- data/vendor/pygments-main/tests/examplefiles/ruby_func_def.rb +11 -0
- data/vendor/pygments-main/tests/examplefiles/rust_example.rs +233 -0
- data/vendor/pygments-main/tests/examplefiles/scilab.sci +30 -0
- data/vendor/pygments-main/tests/examplefiles/session.dylan-console +9 -0
- data/vendor/pygments-main/tests/examplefiles/sibling.prolog +19 -0
- data/vendor/pygments-main/tests/examplefiles/simple.md +747 -0
- data/vendor/pygments-main/tests/examplefiles/smarty_example.html +209 -0
- data/vendor/pygments-main/tests/examplefiles/source.lgt +343 -0
- data/vendor/pygments-main/tests/examplefiles/sources.list +62 -0
- data/vendor/pygments-main/tests/examplefiles/sphere.pov +18 -0
- data/vendor/pygments-main/tests/examplefiles/sqlite3.sqlite3-console +27 -0
- data/vendor/pygments-main/tests/examplefiles/squid.conf +30 -0
- data/vendor/pygments-main/tests/examplefiles/string.jl +1031 -0
- data/vendor/pygments-main/tests/examplefiles/string_delimiters.d +21 -0
- data/vendor/pygments-main/tests/examplefiles/stripheredoc.sh +3 -0
- data/vendor/pygments-main/tests/examplefiles/swig_java.swg +1329 -0
- data/vendor/pygments-main/tests/examplefiles/swig_std_vector.i +225 -0
- data/vendor/pygments-main/tests/examplefiles/test.R +153 -0
- data/vendor/pygments-main/tests/examplefiles/test.adb +211 -0
- data/vendor/pygments-main/tests/examplefiles/test.agda +102 -0
- data/vendor/pygments-main/tests/examplefiles/test.asy +131 -0
- data/vendor/pygments-main/tests/examplefiles/test.awk +121 -0
- data/vendor/pygments-main/tests/examplefiles/test.bas +29 -0
- data/vendor/pygments-main/tests/examplefiles/test.bb +95 -0
- data/vendor/pygments-main/tests/examplefiles/test.bmx +145 -0
- data/vendor/pygments-main/tests/examplefiles/test.boo +39 -0
- data/vendor/pygments-main/tests/examplefiles/test.bro +250 -0
- data/vendor/pygments-main/tests/examplefiles/test.cs +374 -0
- data/vendor/pygments-main/tests/examplefiles/test.css +54 -0
- data/vendor/pygments-main/tests/examplefiles/test.cu +36 -0
- data/vendor/pygments-main/tests/examplefiles/test.d +135 -0
- data/vendor/pygments-main/tests/examplefiles/test.dart +23 -0
- data/vendor/pygments-main/tests/examplefiles/test.dtd +89 -0
- data/vendor/pygments-main/tests/examplefiles/test.ebnf +31 -0
- data/vendor/pygments-main/tests/examplefiles/test.ec +605 -0
- data/vendor/pygments-main/tests/examplefiles/test.ecl +58 -0
- data/vendor/pygments-main/tests/examplefiles/test.eh +315 -0
- data/vendor/pygments-main/tests/examplefiles/test.erl +169 -0
- data/vendor/pygments-main/tests/examplefiles/test.evoque +33 -0
- data/vendor/pygments-main/tests/examplefiles/test.fan +818 -0
- data/vendor/pygments-main/tests/examplefiles/test.flx +57 -0
- data/vendor/pygments-main/tests/examplefiles/test.gdc +13 -0
- data/vendor/pygments-main/tests/examplefiles/test.groovy +97 -0
- data/vendor/pygments-main/tests/examplefiles/test.html +339 -0
- data/vendor/pygments-main/tests/examplefiles/test.ini +10 -0
- data/vendor/pygments-main/tests/examplefiles/test.java +653 -0
- data/vendor/pygments-main/tests/examplefiles/test.jsp +24 -0
- data/vendor/pygments-main/tests/examplefiles/test.maql +45 -0
- data/vendor/pygments-main/tests/examplefiles/test.mod +374 -0
- data/vendor/pygments-main/tests/examplefiles/test.moo +51 -0
- data/vendor/pygments-main/tests/examplefiles/test.myt +166 -0
- data/vendor/pygments-main/tests/examplefiles/test.nim +93 -0
- data/vendor/pygments-main/tests/examplefiles/test.opa +10 -0
- data/vendor/pygments-main/tests/examplefiles/test.p6 +252 -0
- data/vendor/pygments-main/tests/examplefiles/test.pas +743 -0
- data/vendor/pygments-main/tests/examplefiles/test.php +505 -0
- data/vendor/pygments-main/tests/examplefiles/test.plot +333 -0
- data/vendor/pygments-main/tests/examplefiles/test.ps1 +108 -0
- data/vendor/pygments-main/tests/examplefiles/test.pypylog +1839 -0
- data/vendor/pygments-main/tests/examplefiles/test.r3 +94 -0
- data/vendor/pygments-main/tests/examplefiles/test.rb +177 -0
- data/vendor/pygments-main/tests/examplefiles/test.rhtml +43 -0
- data/vendor/pygments-main/tests/examplefiles/test.scaml +8 -0
- data/vendor/pygments-main/tests/examplefiles/test.ssp +12 -0
- data/vendor/pygments-main/tests/examplefiles/test.tcsh +830 -0
- data/vendor/pygments-main/tests/examplefiles/test.vb +407 -0
- data/vendor/pygments-main/tests/examplefiles/test.vhdl +161 -0
- data/vendor/pygments-main/tests/examplefiles/test.xqy +138 -0
- data/vendor/pygments-main/tests/examplefiles/test.xsl +23 -0
- data/vendor/pygments-main/tests/examplefiles/test2.pypylog +120 -0
- data/vendor/pygments-main/tests/examplefiles/truncated.pytb +15 -0
- data/vendor/pygments-main/tests/examplefiles/type.lisp +1218 -0
- data/vendor/pygments-main/tests/examplefiles/underscore.coffee +603 -0
- data/vendor/pygments-main/tests/examplefiles/unicode.applescript +5 -0
- data/vendor/pygments-main/tests/examplefiles/unicodedoc.py +11 -0
- data/vendor/pygments-main/tests/examplefiles/unix-io.lid +37 -0
- data/vendor/pygments-main/tests/examplefiles/webkit-transition.css +3 -0
- data/vendor/pygments-main/tests/examplefiles/while.pov +13 -0
- data/vendor/pygments-main/tests/examplefiles/wiki.factor +384 -0
- data/vendor/pygments-main/tests/examplefiles/xml_example +1897 -0
- data/vendor/pygments-main/tests/examplefiles/zmlrpc.f90 +798 -0
- data/vendor/pygments-main/tests/old_run.py +138 -0
- data/vendor/pygments-main/tests/run.py +49 -0
- data/vendor/pygments-main/tests/support/tags +36 -0
- data/vendor/pygments-main/tests/support.py +15 -0
- data/vendor/pygments-main/tests/test_basic_api.py +295 -0
- data/vendor/pygments-main/tests/test_clexer.py +31 -0
- data/vendor/pygments-main/tests/test_cmdline.py +105 -0
- data/vendor/pygments-main/tests/test_examplefiles.py +99 -0
- data/vendor/pygments-main/tests/test_html_formatter.py +178 -0
- data/vendor/pygments-main/tests/test_latex_formatter.py +55 -0
- data/vendor/pygments-main/tests/test_lexers_other.py +68 -0
- data/vendor/pygments-main/tests/test_perllexer.py +137 -0
- data/vendor/pygments-main/tests/test_regexlexer.py +47 -0
- data/vendor/pygments-main/tests/test_token.py +46 -0
- data/vendor/pygments-main/tests/test_using_api.py +40 -0
- data/vendor/pygments-main/tests/test_util.py +135 -0
- data/vendor/simplejson/.gitignore +10 -0
- data/vendor/simplejson/.travis.yml +5 -0
- data/vendor/simplejson/CHANGES.txt +291 -0
- data/vendor/simplejson/LICENSE.txt +19 -0
- data/vendor/simplejson/MANIFEST.in +5 -0
- data/vendor/simplejson/README.rst +19 -0
- data/vendor/simplejson/conf.py +179 -0
- data/vendor/simplejson/index.rst +628 -0
- data/vendor/simplejson/scripts/make_docs.py +18 -0
- data/vendor/simplejson/setup.py +104 -0
- data/vendor/simplejson/simplejson/__init__.py +510 -0
- data/vendor/simplejson/simplejson/_speedups.c +2745 -0
- data/vendor/simplejson/simplejson/decoder.py +425 -0
- data/vendor/simplejson/simplejson/encoder.py +567 -0
- data/vendor/simplejson/simplejson/ordered_dict.py +119 -0
- data/vendor/simplejson/simplejson/scanner.py +77 -0
- data/vendor/simplejson/simplejson/tests/__init__.py +67 -0
- data/vendor/simplejson/simplejson/tests/test_bigint_as_string.py +55 -0
- data/vendor/simplejson/simplejson/tests/test_check_circular.py +30 -0
- data/vendor/simplejson/simplejson/tests/test_decimal.py +66 -0
- data/vendor/simplejson/simplejson/tests/test_decode.py +83 -0
- data/vendor/simplejson/simplejson/tests/test_default.py +9 -0
- data/vendor/simplejson/simplejson/tests/test_dump.py +67 -0
- data/vendor/simplejson/simplejson/tests/test_encode_basestring_ascii.py +46 -0
- data/vendor/simplejson/simplejson/tests/test_encode_for_html.py +32 -0
- data/vendor/simplejson/simplejson/tests/test_errors.py +34 -0
- data/vendor/simplejson/simplejson/tests/test_fail.py +91 -0
- data/vendor/simplejson/simplejson/tests/test_float.py +19 -0
- data/vendor/simplejson/simplejson/tests/test_indent.py +86 -0
- data/vendor/simplejson/simplejson/tests/test_item_sort_key.py +20 -0
- data/vendor/simplejson/simplejson/tests/test_namedtuple.py +121 -0
- data/vendor/simplejson/simplejson/tests/test_pass1.py +76 -0
- data/vendor/simplejson/simplejson/tests/test_pass2.py +14 -0
- data/vendor/simplejson/simplejson/tests/test_pass3.py +20 -0
- data/vendor/simplejson/simplejson/tests/test_recursion.py +67 -0
- data/vendor/simplejson/simplejson/tests/test_scanstring.py +117 -0
- data/vendor/simplejson/simplejson/tests/test_separators.py +42 -0
- data/vendor/simplejson/simplejson/tests/test_speedups.py +20 -0
- data/vendor/simplejson/simplejson/tests/test_tuple.py +49 -0
- data/vendor/simplejson/simplejson/tests/test_unicode.py +109 -0
- data/vendor/simplejson/simplejson/tool.py +39 -0
- metadata +566 -0
@@ -0,0 +1,382 @@
|
|
1
|
+
% Copyright 2005 Brian Alliet
|
2
|
+
|
3
|
+
\documentclass[11pt]{article}
|
4
|
+
\usepackage{palatino}
|
5
|
+
\usepackage{fullpage}
|
6
|
+
\usepackage{parskip}
|
7
|
+
\usepackage{lhs}
|
8
|
+
|
9
|
+
\begin{document}
|
10
|
+
|
11
|
+
\title{Sudoku Solver}
|
12
|
+
\author{Brian Alliet}
|
13
|
+
\maketitle
|
14
|
+
|
15
|
+
\ignore{
|
16
|
+
\begin{code}
|
17
|
+
module Sudoku (
|
18
|
+
Sudoku,
|
19
|
+
makeSudoku, solve, eliminate, analyze, backtrack,
|
20
|
+
main
|
21
|
+
) where
|
22
|
+
|
23
|
+
import Array
|
24
|
+
import Monad
|
25
|
+
import List (union,intersperse,transpose,(\\),nub,nubBy)
|
26
|
+
\end{code}
|
27
|
+
}
|
28
|
+
|
29
|
+
\section{Introduction}
|
30
|
+
|
31
|
+
This Haskell module implements a solver for Sudoku~\footnote{http://en.wikipedia.org/wiki/Sudoku} puzzles. It can solve
|
32
|
+
any Sudoku puzzle, even those that require backtracking.
|
33
|
+
|
34
|
+
\section{Data Types}
|
35
|
+
|
36
|
+
\begin{code}
|
37
|
+
data CellState a = Known a | Unknown [a] | Impossible deriving Eq
|
38
|
+
\end{code}
|
39
|
+
|
40
|
+
Each cell in a Sudoku grid can be in one of three states: ``Known'' if it has a known correct value~\footnote{Actually
|
41
|
+
this doesn't always means it is correct. While we are in the backtracking stage we make our guesses ``Known''.},
|
42
|
+
``Unknown'' if there is still more than one possible correct value, or ``Impossible'' if there is no value that can
|
43
|
+
possibly fit the cell. Sudoku grids with ``Impossible'' cells are quickly discarded by the {\tt solve} function.
|
44
|
+
|
45
|
+
\begin{code}
|
46
|
+
type Coords = (Int,Int)
|
47
|
+
type Grid a = Array Coords (CellState a)
|
48
|
+
newtype Sudoku a = Sudoku { unSudoku :: Grid a } deriving Eq
|
49
|
+
\end{code}
|
50
|
+
|
51
|
+
We represent a Sudoku grid as an Array indexed by integer coordinates. We additionally define a newtype wrapper for the
|
52
|
+
grid. The smart constructor, {\tt makeSudoku} verifies some invariants before creating the Sudoku value. All the public
|
53
|
+
API functions operate on the Sudoku type.
|
54
|
+
|
55
|
+
\begin{code}
|
56
|
+
instance Show a => Show (Sudoku a) where showsPrec p = showParen (p>0) . showsGrid . unSudoku
|
57
|
+
instance Show a => Show (CellState a) where showsPrec _ = showsCell
|
58
|
+
\end{code}
|
59
|
+
|
60
|
+
We define {\tt Show} instances for the above types.
|
61
|
+
|
62
|
+
\section{Internal Functions}
|
63
|
+
|
64
|
+
\begin{code}
|
65
|
+
size :: Grid a -> Int
|
66
|
+
size = (+1).fst.snd.bounds
|
67
|
+
\end{code}
|
68
|
+
|
69
|
+
{\tt size} returns the size (the width, height, and number of subboxes) for a Sudoku grid. We ensure Grid's are always
|
70
|
+
square and indexed starting at $(0,0)$ so simply incrementing either of the array's upper bounds is correct.
|
71
|
+
|
72
|
+
\begin{code}
|
73
|
+
getRow,getCol,getBox :: Grid a -> Int -> [(Coords,CellState a)]
|
74
|
+
getRow grid r = [let l = (r,c) in (l,grid!l)|c <- [0..size grid - 1]]
|
75
|
+
getCol grid c = [let l = (r,c) in (l,grid!l)|r <- [0..size grid - 1]]
|
76
|
+
getBox grid b = [let l = (r,c) in (l,grid!l)|r <- [boxR..boxR+boxN-1],c <- [boxC..boxC+boxN-1]]
|
77
|
+
where
|
78
|
+
boxN = intSqrt (size grid); boxR = b `quot` boxN * boxN; boxC = b `rem` boxN * boxN
|
79
|
+
|
80
|
+
getBoxOf :: Grid a -> Coords -> [(Coords,CellState a)]
|
81
|
+
getBoxOf grid (r,c) = grid `getBox` ((r `quot` boxN * boxN) + (c `quot` boxN))
|
82
|
+
where boxN = intSqrt (size grid)
|
83
|
+
\end{code}
|
84
|
+
|
85
|
+
{\tt getRow}, {\tt getCol}, and {\tt getBox} return the coordinates and values of the cell in row, column, or box
|
86
|
+
number {\tt n}, {\tt r}, or {\tt b}.
|
87
|
+
|
88
|
+
\begin{code}
|
89
|
+
getNeighbors :: Eq a => Grid a -> Coords -> [(Coords,CellState a)]
|
90
|
+
getNeighbors grid l@(r,c) = filter ((/=l).fst)
|
91
|
+
$ foldr (union.($grid)) []
|
92
|
+
[(`getRow`r),(`getCol`c),(`getBoxOf`l)]
|
93
|
+
\end{code}
|
94
|
+
|
95
|
+
{\tt getNeighbors} returns the coordinates and values of all the neighbors of this cell.
|
96
|
+
|
97
|
+
\begin{code}
|
98
|
+
impossible :: Eq a => Grid a -> Coords -> [a]
|
99
|
+
impossible grid l = map snd $ justKnowns $ grid `getNeighbors` l
|
100
|
+
\end{code}
|
101
|
+
|
102
|
+
{\tt impossible} returns a list of impossible values for a given cell. The impossible values consist of the values any
|
103
|
+
``Known'' neighbors.
|
104
|
+
|
105
|
+
\begin{code}
|
106
|
+
justUnknowns :: [(Coords,CellState a)] -> [(Coords,[a])]
|
107
|
+
justUnknowns = foldr (\c -> case c of (p,Unknown xs) -> ((p,xs):); _ -> id) []
|
108
|
+
|
109
|
+
justKnowns :: [(Coords,CellState a)] -> [(Coords,a)]
|
110
|
+
justKnowns = foldr (\c -> case c of (p,Known x) -> ((p,x):); _ -> id) []
|
111
|
+
\end{code}
|
112
|
+
|
113
|
+
{\tt justUnknowns} and {\tt justKnowns} return only the Known or Unknown values (with the constructor stripped off)
|
114
|
+
from a list of cells.
|
115
|
+
|
116
|
+
\begin{code}
|
117
|
+
updateGrid :: Grid a -> [(Coords,CellState a)] -> Maybe (Grid a)
|
118
|
+
updateGrid _ [] = Nothing
|
119
|
+
updateGrid grid xs = Just $ grid // nubBy (\(x,_) (y,_) -> x==y) xs
|
120
|
+
\end{code}
|
121
|
+
|
122
|
+
{\tt updateGrid} applies a set of updates to a grid and returns the new grid only if it was updated.
|
123
|
+
|
124
|
+
\section{Public API}
|
125
|
+
|
126
|
+
\begin{code}
|
127
|
+
makeSudoku :: (Num a, Ord a, Enum a) => [[a]] -> Sudoku a
|
128
|
+
makeSudoku xs
|
129
|
+
| not (all ((==size).length) xs) = error "error not a square"
|
130
|
+
| (intSqrt size)^(2::Int) /= size = error "error dims aren't perfect squares"
|
131
|
+
| any (\x -> x < 0 || x > fromIntegral size) (concat xs) = error "value out of range"
|
132
|
+
| otherwise = Sudoku (listArray ((0,0),(size-1,size-1)) states)
|
133
|
+
where
|
134
|
+
size = length xs
|
135
|
+
states = map f (concat xs)
|
136
|
+
f 0 = Unknown [1..fromIntegral size]
|
137
|
+
f x = Known x
|
138
|
+
\end{code}
|
139
|
+
|
140
|
+
{\tt makeSudoku} makes a {\tt Sudoku} value from a list of numbers. The given matrix must be square and have dimensions
|
141
|
+
that are a perfect square. The possible values for each cell range from 1 to the dimension of the square with ``0''
|
142
|
+
representing unknown values.\footnote{The rest of the code doesn't depend on any of this weird ``0'' is unknown
|
143
|
+
representation. In fact, it doesn't depend on numeric values at all. ``0'' is just used here because it makes
|
144
|
+
representing grids in Haskell source code easier.}
|
145
|
+
|
146
|
+
\begin{code}
|
147
|
+
eliminate :: Eq a => Sudoku a -> Maybe (Sudoku a)
|
148
|
+
eliminate (Sudoku grid) = fmap Sudoku $ updateGrid grid changes >>= sanitize
|
149
|
+
where
|
150
|
+
changes = concatMap findChange $ assocs grid
|
151
|
+
findChange (l,Unknown xs)
|
152
|
+
= map ((,) l)
|
153
|
+
$ case filter (not.(`elem`impossible grid l)) xs of
|
154
|
+
[] -> return Impossible
|
155
|
+
[x] -> return $ Known x
|
156
|
+
xs'
|
157
|
+
| xs' /= xs -> return $ Unknown xs'
|
158
|
+
| otherwise -> mzero
|
159
|
+
findChange _ = mzero
|
160
|
+
sanitize grid = return $ grid // [(l,Impossible) |
|
161
|
+
(l,x) <- justKnowns changes, x `elem` impossible grid l]
|
162
|
+
\end{code}
|
163
|
+
|
164
|
+
The {\tt eliminate} phase tries to remove possible choices for ``Unknowns'' based on ``Known'' values in the same row,
|
165
|
+
column, or box as the ``Unknown'' value. For each cell on the grid we find its ``neighbors'', that is, cells in the
|
166
|
+
same row, column, or box. Out of those neighbors we get a list of all the ``Known'' values. We can eliminate all of
|
167
|
+
these from our list of candidates for this cell. If we're lucky enough to eliminate all the candidates but one we have
|
168
|
+
a new ``Known'' value. If we're unlucky enough to have eliminates {\bf all} the possible candidates we have a new
|
169
|
+
``Impossible'' value.
|
170
|
+
|
171
|
+
After iterating though every cell we make one more pass looking for conflicting changes. {\tt sanitize} marks cells as
|
172
|
+
``Impossible'' if we have conflicting ``Known'' values.
|
173
|
+
|
174
|
+
\begin{code}
|
175
|
+
analyze :: Eq a => Sudoku a -> Maybe (Sudoku a)
|
176
|
+
analyze (Sudoku grid) = fmap Sudoku $ updateGrid grid $ nub [u |
|
177
|
+
f <- map ($grid) [getRow,getCol,getBox],
|
178
|
+
n <- [0..size grid - 1],
|
179
|
+
u <- unique (f n)]
|
180
|
+
where
|
181
|
+
unique xs = foldr f [] $ foldr (union.snd) [] unknowns \\ map snd (justKnowns xs)
|
182
|
+
where
|
183
|
+
unknowns = justUnknowns xs
|
184
|
+
f c = case filter ((c`elem`).snd) unknowns of
|
185
|
+
[(p,_)] -> ((p,Known c):)
|
186
|
+
_ -> id
|
187
|
+
\end{code}
|
188
|
+
|
189
|
+
The {\tt analyze} phase tries to turn ``Unknowns'' into ``Knowns'' when a certain ``Unknown'' is the only cell that
|
190
|
+
contains a value needed in a given row, column, or box. We apply each of the functions {\tt getRow}, {\tt getCol}, and
|
191
|
+
{\tt getBox} to all the indices on the grid, apply {\tt unique} to each group, and update the array with the
|
192
|
+
results. {\tt unique} gets a list of all the unknown cells in the group and finds all the unknown values in each of
|
193
|
+
those cells. Each of these values are iterated though looking for a value that is only contained in one cell. If such a
|
194
|
+
value is found the cell containing it must be that value.
|
195
|
+
|
196
|
+
\begin{code}
|
197
|
+
backtrack :: (MonadPlus m, Eq a) => Sudoku a -> m (Sudoku a)
|
198
|
+
backtrack (Sudoku grid) = case (justUnknowns (assocs grid)) of
|
199
|
+
[] -> return $ Sudoku grid
|
200
|
+
((p,xs):_) -> msum $ map (\x -> solve $ Sudoku $ grid // [(p,Known x)]) xs
|
201
|
+
\end{code}
|
202
|
+
|
203
|
+
Sometimes the above two phases still aren't enough to solve a puzzle. For these rare puzzles backtracking is required.
|
204
|
+
We attempt to solve the puzzle by replacing the first ``Unknown'' value with each of the candidate values and solving
|
205
|
+
the resulting puzzles. Hopefully at least one of our choices will result in a solvable puzzle.
|
206
|
+
|
207
|
+
We could actually solve any puzzle using backtracking alone, although this would be very inefficient. The above
|
208
|
+
functions simplify most puzzles enough that the backtracking phase has to do hardly any work.
|
209
|
+
|
210
|
+
\begin{code}
|
211
|
+
solve :: (MonadPlus m, Eq a) => Sudoku a -> m (Sudoku a)
|
212
|
+
solve sudoku =
|
213
|
+
case eliminate sudoku of
|
214
|
+
Just new
|
215
|
+
| any (==Impossible) (elems (unSudoku new))-> mzero
|
216
|
+
| otherwise -> solve new
|
217
|
+
Nothing -> case analyze sudoku of
|
218
|
+
Just new -> solve new
|
219
|
+
Nothing -> backtrack sudoku
|
220
|
+
\end{code}
|
221
|
+
|
222
|
+
{\tt solve} glues all the above phases together. First we run the {\tt eliminate} phase. If that found the puzzle to
|
223
|
+
be unsolvable we abort immediately. If {\tt eliminate} changed the grid we go though the {\tt eliminate} phase again
|
224
|
+
hoping to eliminate more. Once {\tt eliminate} can do no more work we move on to the {\tt analyze} phase. If this
|
225
|
+
succeeds in doing some work we start over again with the {\tt eliminate} phase. Once {\tt analyze} can do no more work
|
226
|
+
we have no choice but to resort to backtracking. (However in most cases backtracking won't actually do anything because
|
227
|
+
the puzzle is already solved.)
|
228
|
+
|
229
|
+
\begin{code}
|
230
|
+
showsCell :: Show a => CellState a -> ShowS
|
231
|
+
showsCell (Known x) = shows x
|
232
|
+
showsCell (Impossible) = showChar 'X'
|
233
|
+
showsCell (Unknown xs) = \rest -> ('(':)
|
234
|
+
$ foldr id (')':rest)
|
235
|
+
$ intersperse (showChar ' ')
|
236
|
+
$ map shows xs
|
237
|
+
\end{code}
|
238
|
+
|
239
|
+
{\tt showCell} shows a cell.
|
240
|
+
|
241
|
+
\begin{code}
|
242
|
+
showsGrid :: Show a => Grid a -> ShowS
|
243
|
+
showsGrid grid = showsTable [[grid!(r,c) | c <- [0..size grid-1]] | r <- [0..size grid-1]]
|
244
|
+
\end{code}
|
245
|
+
|
246
|
+
{\tt showGrid} show a grid.
|
247
|
+
|
248
|
+
\begin{code}
|
249
|
+
-- FEATURE: This is pretty inefficient
|
250
|
+
showsTable :: Show a => [[a]] -> ShowS
|
251
|
+
showsTable xs = (showChar '\n' .) $ showString $ unlines $ map (concat . intersperse " ") xs''
|
252
|
+
where
|
253
|
+
xs' = (map.map) show xs
|
254
|
+
colWidths = map (max 2 . maximum . map length) (transpose xs')
|
255
|
+
xs'' = map (zipWith (\n s -> s ++ (replicate (n - length s) ' ')) colWidths) xs'
|
256
|
+
\end{code}
|
257
|
+
|
258
|
+
{\tt showsTable} shows a table (or matrix). Every column has the same width so things line up.
|
259
|
+
|
260
|
+
\begin{code}
|
261
|
+
intSqrt :: Integral a => a -> a
|
262
|
+
intSqrt n
|
263
|
+
| n < 0 = error "intSqrt: negative n"
|
264
|
+
| otherwise = f n
|
265
|
+
where
|
266
|
+
f x = if y < x then f y else x
|
267
|
+
where y = (x + (n `quot` x)) `quot` 2
|
268
|
+
\end{code}
|
269
|
+
|
270
|
+
{\tt intSqrt} is Newton`s Iteration for finding integral square roots.
|
271
|
+
|
272
|
+
\ignore{
|
273
|
+
\begin{code}
|
274
|
+
test :: Sudoku Int
|
275
|
+
test = makeSudoku [
|
276
|
+
[0,6,0,1,0,4,0,5,0],
|
277
|
+
[0,0,8,3,0,5,6,0,0],
|
278
|
+
[2,0,0,0,0,0,0,0,1],
|
279
|
+
[8,0,0,4,0,7,0,0,6],
|
280
|
+
[0,0,6,0,0,0,3,0,0],
|
281
|
+
[7,0,0,9,0,1,0,0,4],
|
282
|
+
[5,0,0,0,0,0,0,0,2],
|
283
|
+
[0,0,7,2,0,6,9,0,0],
|
284
|
+
[0,4,0,5,0,8,0,7,0]]
|
285
|
+
|
286
|
+
test2 :: Sudoku Int
|
287
|
+
test2 = makeSudoku [
|
288
|
+
[0,7,0,0,0,0,8,0,0],
|
289
|
+
[0,0,0,2,0,4,0,0,0],
|
290
|
+
[0,0,6,0,0,0,0,3,0],
|
291
|
+
[0,0,0,5,0,0,0,0,6],
|
292
|
+
[9,0,8,0,0,2,0,4,0],
|
293
|
+
[0,5,0,0,3,0,9,0,0],
|
294
|
+
[0,0,2,0,8,0,0,6,0],
|
295
|
+
[0,6,0,9,0,0,7,0,1],
|
296
|
+
[4,0,0,0,0,3,0,0,0]]
|
297
|
+
|
298
|
+
testSmall :: Sudoku Int
|
299
|
+
testSmall = makeSudoku [
|
300
|
+
[1,0,0,0,0,0,0,0,0],
|
301
|
+
[0,0,2,7,4,0,0,0,0],
|
302
|
+
[0,0,0,5,0,0,0,0,4],
|
303
|
+
[0,3,0,0,0,0,0,0,0],
|
304
|
+
[7,5,0,0,0,0,0,0,0],
|
305
|
+
[0,0,0,0,0,9,6,0,0],
|
306
|
+
[0,4,0,0,0,6,0,0,0],
|
307
|
+
[0,0,0,0,0,0,0,7,1],
|
308
|
+
[0,0,0,0,0,1,0,3,0]]
|
309
|
+
|
310
|
+
testHard :: Sudoku Int
|
311
|
+
testHard = makeSudoku [
|
312
|
+
[0,0,0,8,0,2,0,0,0],
|
313
|
+
[5,0,0,0,0,0,0,0,1],
|
314
|
+
[0,0,6,0,5,0,3,0,0],
|
315
|
+
[0,0,9,0,1,0,8,0,0],
|
316
|
+
[1,0,0,0,0,0,0,0,2],
|
317
|
+
[0,0,0,9,0,7,0,0,0],
|
318
|
+
[0,6,1,0,3,0,7,8,0],
|
319
|
+
[0,5,0,0,0,0,0,4,0],
|
320
|
+
[0,7,2,0,4,0,1,5,0]]
|
321
|
+
|
322
|
+
testHard2 :: Sudoku Int
|
323
|
+
testHard2 = makeSudoku [
|
324
|
+
[3,0,0,2,0,0,9,0,0],
|
325
|
+
[0,0,0,0,0,0,0,0,5],
|
326
|
+
[0,7,0,1,0,4,0,0,0],
|
327
|
+
[0,0,9,0,0,0,8,0,0],
|
328
|
+
[5,0,0,0,7,0,0,0,6],
|
329
|
+
[0,0,1,0,0,0,2,0,0],
|
330
|
+
[0,0,0,3,0,9,0,4,0],
|
331
|
+
[8,0,0,0,0,0,0,0,0],
|
332
|
+
[0,0,6,0,0,5,0,0,7]]
|
333
|
+
|
334
|
+
testHW :: Sudoku Int
|
335
|
+
testHW = makeSudoku [
|
336
|
+
[0,0,0,1,0,0,7,0,2],
|
337
|
+
[0,3,0,9,5,0,0,0,0],
|
338
|
+
[0,0,1,0,0,2,0,0,3],
|
339
|
+
[5,9,0,0,0,0,3,0,1],
|
340
|
+
[0,2,0,0,0,0,0,7,0],
|
341
|
+
[7,0,3,0,0,0,0,9,8],
|
342
|
+
[8,0,0,2,0,0,1,0,0],
|
343
|
+
[0,0,0,0,8,5,0,6,0],
|
344
|
+
[6,0,5,0,0,9,0,0,0]]
|
345
|
+
|
346
|
+
testTough :: Sudoku Int
|
347
|
+
testTough = makeSudoku $ map (map read . words) $ lines $
|
348
|
+
"8 3 0 0 0 0 0 4 6\n"++
|
349
|
+
"0 2 0 1 0 4 0 3 0\n"++
|
350
|
+
"0 0 0 0 0 0 0 0 0\n"++
|
351
|
+
"0 0 2 9 0 6 5 0 0\n"++
|
352
|
+
"1 4 0 0 0 0 0 2 3\n"++
|
353
|
+
"0 0 5 4 0 3 1 0 0\n"++
|
354
|
+
"0 0 0 0 0 0 0 0 0\n"++
|
355
|
+
"0 6 0 3 0 8 0 7 0\n"++
|
356
|
+
"9 5 0 0 0 0 0 6 2\n"
|
357
|
+
|
358
|
+
testDiabolical :: Sudoku Int
|
359
|
+
testDiabolical = makeSudoku $ map (map read . words) $ lines $
|
360
|
+
"8 0 0 7 0 1 0 0 2\n"++
|
361
|
+
"0 0 6 0 0 0 7 0 0\n"++
|
362
|
+
"0 1 7 0 0 0 8 9 0\n"++
|
363
|
+
"0 0 0 1 7 3 0 0 0\n"++
|
364
|
+
"7 0 0 0 0 0 0 0 6\n"++
|
365
|
+
"0 0 0 9 5 6 0 0 0\n"++
|
366
|
+
"0 9 5 0 0 0 4 1 0\n"++
|
367
|
+
"0 0 8 0 0 0 5 0 0\n"++
|
368
|
+
"3 0 0 6 0 5 0 0 7\n"
|
369
|
+
|
370
|
+
main :: IO ()
|
371
|
+
main = do
|
372
|
+
let
|
373
|
+
solve' p = case solve p of
|
374
|
+
[] -> fail $ "couldn't solve: " ++ show p
|
375
|
+
sols -> return sols
|
376
|
+
mapM_ (\p -> solve' p >>= putStrLn.show) [test,test2,testSmall,testHard,testHard2,testHW,testTough,testDiabolical]
|
377
|
+
return ()
|
378
|
+
|
379
|
+
\end{code}
|
380
|
+
}
|
381
|
+
|
382
|
+
\end{document}
|
@@ -0,0 +1,30 @@
|
|
1
|
+
// See README.txt for information and build instructions.
|
2
|
+
|
3
|
+
package tutorial;
|
4
|
+
|
5
|
+
option java_package = "com.example.tutorial";
|
6
|
+
option java_outer_classname = "AddressBookProtos";
|
7
|
+
|
8
|
+
message Person {
|
9
|
+
required string name = 1;
|
10
|
+
required int32 id = 2; // Unique ID number for this person.
|
11
|
+
optional string email = 3;
|
12
|
+
|
13
|
+
enum PhoneType {
|
14
|
+
MOBILE = 0;
|
15
|
+
HOME = 1;
|
16
|
+
WORK = 2;
|
17
|
+
}
|
18
|
+
|
19
|
+
message PhoneNumber {
|
20
|
+
required string number = 1;
|
21
|
+
optional PhoneType type = 2 [default = HOME];
|
22
|
+
}
|
23
|
+
|
24
|
+
repeated PhoneNumber phone = 4;
|
25
|
+
}
|
26
|
+
|
27
|
+
// Our address book file is just one of these.
|
28
|
+
message AddressBook {
|
29
|
+
repeated Person person = 1;
|
30
|
+
}
|
@@ -0,0 +1 @@
|
|
1
|
+
public f throws a, b, c : x ;
|