Peter Reavy preavy
preavy
/ Pattern.hs
Created
August 28, 2017 12:46
An implementation of https://en.wikipedia.org/wiki/Rule_30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {- | -- Defined in ‘Test.QuickCheck.Arbitrary’ | |
| |instance [safe] Arbitrary Char | |
| An implementation of https://en.wikipedia.org/wiki/Rule_30 | -- Defined in ‘Test.QuickCheck.Arbitrary’ | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| How to use: | |
| Write some PowerShell code in any Emacs buffer. | |
| Select the region to evaluate, then M-x eval-region-powershell to evaluate it as a PowerShell script block. | |
| The output goes into *Shell Command Output*. | |
| (defun eval-region-powershell () | |
| (interactive) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun svn-repo-open (s) | |
| "Open a buffer to browse a Subversion repository." | |
| (interactive "sRepo: ") | |
| (switch-to-buffer "svn-repo") | |
| (svn-repo-mode) | |
| (shell-command (concat "svn ls " (shell-quote-argument s)) "svn-repo") | |
| (goto-char (point-min)) | |
| (if (equal "/" (substring s (- (length s) 1) (length s))) | |
| (insert (concat s "\n\n")) | |
| (insert (concat s "/\n\n")))) |