Martin Owen mowen
mowen
/ gist:291247
Created
January 31, 2010 21:15
This file contains 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
| (eval-after-load 'org | |
| '(progn | |
| (set-face-foreground 'org-level-2 "magenta4") | |
| (set-face-foreground 'outline-2 "magenta4") | |
| (set-face-foreground 'org-level-6 "red3") | |
| (set-face-foreground 'outline-6 "red3"))) |
This file contains 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
| ;; A palindromic number reads the same both ways. The largest palindrome made | |
| ;; from the product of two 2-digit numbers is 9009 = 91 × 99. | |
| ;; | |
| ;; Find the largest palindrome made from the product of two 3-digit numbers. | |
| ;; | |
| (defun array-reverse (array) | |
| "Reverse the ARRAY." | |
| (let ((reversed-array (copy-sequence array)) | |
| (array-length (length array)) |
mowen
/ SiteFocus.js
Created
March 6, 2010 13:45
This file contains 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
| /** | |
| * SiteFocus, an enhanced version of the Blacklist Sites - Page Mods Demo. | |
| * Recommended for anyone who has this problem: http://xkcd.com/477/ | |
| * Martin Owen - martinowenuk@gmail.com | |
| */ | |
| jetpack.future.import("storage.simple"); | |
| jetpack.future.import('menu'); | |
| function SiteFocus() { |
mowen
/ euler-6.clj
Created
April 3, 2010 20:21
This file contains 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
| (ns martin) | |
| (defn sqr | |
| "Square the given number." | |
| [n] | |
| (. (BigInteger/valueOf n) (pow 2))) | |
| (defn euler-6 | |
| "Find the difference between the sum of the squares of the first one hundred | |
| natural numbers and the square of the sum." |
mowen
/ euler-5.clj
Created
April 3, 2010 21:10
This file contains 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
| (ns martin) | |
| (defn evenly-divisible? | |
| "Is N evenly-divisible by all of the numbers in SEQ?" | |
| [n seq] | |
| (loop [s seq] | |
| ;; TODO: Find out how to do 'cond' in Clojure | |
| (if (empty? s) | |
| true | |
| (if (not (zero? (mod n (first s)))) |
mowen
/ footer.php
Created
August 10, 2010 20:23
mowen
/ BadService.cs
Created
August 22, 2010 17:30
This file contains 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
| using System; | |
| using System.Collections.Generic; | |
| using System.Linq; | |
| using System.Text; | |
| namespace Experiments | |
| { | |
| public class BadService : IService | |
| { | |
| public string ProvideService() |
mowen
/ DynamicUtils.cs
Created
September 13, 2010 19:29
This file contains 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
| // Method for converting a Json.NET object into a dynamic CLR object. | |
| // http://groups.google.com/group/mongodb-csharp/browse_thread/thread/ef1308f38bdbde3e | |
| public static class DynamicUtils | |
| { | |
| public static object ConvertJTokenToObject(JToken token) | |
| { | |
| if (token is JValue) | |
| { | |
| return ((JValue)token).Value; | |
| } |
mowen
/ gist:1175335
Created
August 27, 2011 12:36
This file contains 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
| (defvar mo-script-url-alist | |
| '((jquery . "https://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js") | |
| (json2 . "http://cdnjs.cloudflare.com/ajax/libs/json2/20110223/json2.js") | |
| (ocanvas . "http://cdnjs.cloudflare.com/ajax/libs/ocanvas/1.0/ocanvas.min.js") | |
| (processing . "http://cdnjs.cloudflare.com/ajax/libs/processing.js/1.2.1/processing-api.min.js") | |
| (prototype . "https://ajax.googleapis.com/ajax/libs/prototype/1.7.0.0/prototype.js") | |
| (sizzle . "http://cdnjs.cloudflare.com/ajax/libs/sizzle/1.4.4/sizzle.min.js") | |
| (underscore . "http://cdnjs.cloudflare.com/ajax/libs/underscore.js/1.1.7/underscore-min.js") | |
| (underscore-string . "http://cdnjs.cloudflare.com/ajax/libs/underscore.string/1.1.4/underscore.string.min.js") | |
| (waypoints . "http://cdnjs.cloudflare.com/ajax/libs/waypoints/1.1/waypoints.min.js")) |
This file contains 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
| <!doctype html> | |
| <html lang="en"> | |
| <head> | |
| <meta charset="UTF-8" /> | |
| <title>Chapter 4 Example 9: Animating an image with rotation</title> | |
| <script src="http://cdnjs.cloudflare.com/ajax/libs/modernizr/2.0.6/modernizr.min.js"></script> | |
| <script src="http://cdnjs.cloudflare.com/ajax/libs/underscore.js/1.1.7/underscore-min.js"></script> | |
| <script src="ex9.js"></script> | |
| </head> | |
| <body> |
OlderNewer