From 5695637fc1809d8777f6edcb67f1ab4e372c8bbb Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sat, 19 Jan 2013 03:01:33 +0100 Subject: Remove snippets This is not the way I want to present them --- site/snippets/euler-problem-1.org | 286 -------------------------------------- 1 file changed, 286 deletions(-) delete mode 100644 site/snippets/euler-problem-1.org (limited to 'site/snippets/euler-problem-1.org') diff --git a/site/snippets/euler-problem-1.org b/site/snippets/euler-problem-1.org deleted file mode 100644 index ad2fad2..0000000 --- a/site/snippets/euler-problem-1.org +++ /dev/null @@ -1,286 +0,0 @@ -#+TITLE: euler-problem-1 - -* euler-problem-1 - - Here is my solution to the Project Euler problem #1 in as many - languages as I could write it. - - Each section will first show the commands to run the program and - then the source for it. - - I should still add: - - - C# (Mono) - - Maybe, someday soon I'll also add: - - - Ruby - - Io - - Prolog - - Scala - - Erlang - - Haskell - -** Bash - - #+BEGIN_EXAMPLE - ./euler-problem-1.sh - #+END_EXAMPLE - - #+BEGIN_SRC shell-script :tangle yes - #!/bin/sh - TOTAL=0 - I=0 - - while [ $I -lt 1000 ]; do - if [ $[ $I % 3 ] -eq 0 -o $[ $I % 5 ] -eq 0 ]; then - let TOTAL=TOTAL+I - fi - let I=I+1 - done - - echo $TOTAL - #+END_SRC - -** C - - #+BEGIN_EXAMPLE - gcc euler-problem-1.c && ./a.out - #+END_EXAMPLE - - #+BEGIN_SRC c :tangle yes - #include - - int main(int argc, char *argv[]) - { - int i, total = 0; - - for (i = 0; i < 1000; i++) - if (i % 3 == 0 || i % 5 == 0) - total += i; - - printf("%d\n", total); - - return 0; - } - #+END_SRC - -** Clojure - - #+BEGIN_EXAMPLE - clj euler-problem-1.clj - #+END_EXAMPLE - - #+BEGIN_SRC clojure :tangle yes - (def total 0) - - (dotimes [i 1000] - (when (or (zero? (mod i 3)) (zero? (mod i 5))) - (def total (+ total i)))) - (println total) - #+END_SRC - -** Emacs lisp - - #+BEGIN_EXAMPLE - emacs -script euler-problem-1.el - #+END_EXAMPLE - - #+BEGIN_SRC emacs-lisp :tangle yes - (let ((i 0) - (total 0)) - (while (< i 1000) - (when (or (zerop (mod i 3)) (zerop (mod i 5))) - (setq total (+ total i))) - (setq i (1+ i))) - (message "%d" total)) - #+END_SRC - -** Go - - #+BEGIN_EXAMPLE - go run euler-problem-1.go - #+END_EXAMPLE - - #+BEGIN_SRC go :tangle yes - package main - - import ( - "fmt" - ) - - func main() { - total := 0 - - for i := 0; i < 1000; i++ { - if i % 3 == 0 || i % 5 == 0 { - total += i - } - } - - fmt.Printf("%d\n", total) - } - #+END_SRC - -** Java - - #+BEGIN_EXAMPLE - javac euler-problem-1.java && java Problem - #+END_EXAMPLE - - #+BEGIN_SRC java :tangle yes - class Problem - { - public static void main(String args[]) - { - int total = 0; - int i; - - for (i = 0; i < 1000; i++) - if (i % 3 == 0 || i % 5 == 0) - total += i; - - System.out.println(total); - } - } - #+END_SRC - -** JavaScript - - #+BEGIN_EXAMPLE - js euler-problem-1.js - #+END_EXAMPLE - - #+BEGIN_SRC javascript :tangle yes - var total = 0; - - for (i = 0; i < 1000; i++) - if (i % 3 == 0 || i % 5 == 0) - total += i; - - print(total); - #+END_SRC - -** Common Lisp - - #+BEGIN_EXAMPLE - sbcl --script euler-problem-1.lisp - #+END_EXAMPLE - - #+BEGIN_SRC lisp :tangle yes - (loop for i from 0 to 999 - when (or (zerop (mod i 3)) (zerop (mod i 5))) sum i into total - finally (format t "~d~%" total)) - #+END_SRC - -** PHP - - #+BEGIN_EXAMPLE - php euler-problem-1.php - #+END_EXAMPLE - - #+BEGIN_SRC php :tangle yes - - #+END_SRC - -** Python - - #+BEGIN_EXAMPLE - python euler-problem-1.py - #+END_EXAMPLE - - #+BEGIN_SRC python :tangle yes - TOTAL = 0 - - for i in range(1000): - if i % 3 == 0 or i % 5 == 0: - TOTAL += i - - print(TOTAL) - #+END_SRC - -** Rep - - #+BEGIN_EXAMPLE - rep euler-problem-1.java - #+END_EXAMPLE - - #+BEGIN_SRC sawfish :tangle yes - (do ((i 0 (1+ i)) - (total 0)) - ((>= i 1000) - (format standard-output "%d\n" total)) - (when (or (zerop (mod i 3)) (zerop (mod i 5))) - (setq total (+ total i)))) - #+END_SRC - -** Rust - - #+BEGIN_EXAMPLE - rustc euler-problem-1.rs && ./euler-problem-1 - #+END_EXAMPLE - - #+BEGIN_SRC rust :tangle yes - fn main() { - let mut total = 0; - let mut i = 0; - - while i < 1000 { - if i % 3 == 0 || i % 5 == 0 { - total += i; - } - - i += 1; - } - - io::print(fmt!("%d\n", total)); - } - #+END_SRC - -** Scheme - - #+BEGIN_EXAMPLE - guile euler-problem-1.scm - #+END_EXAMPLE - - #+BEGIN_SRC scheme :tangle yes - (use-modules ((rnrs base))) - - (do ((i 0 (1+ i)) - (total 0)) - ((>= i 1000) - (display total) - (newline)) - (when (or (zero? (mod i 3)) (zero? (mod i 5))) - (set! total (+ total i)))) - #+END_SRC - -** Vala - - #+BEGIN_EXAMPLE - valac euler-problem-1.vala && ./euler-problem-1 - #+END_EXAMPLE - - #+BEGIN_SRC vala :tangle yes - class Euler.Problem1 : GLib.Object { - public static int main(string[] args) { - int total = 0; - - for (int i = 0; i < 1000; i++) - if (i % 3 == 0 || i % 5 == 0) - total += i; - - stdout.printf("%d\n", total); - - return 0; - } - } - #+END_SRC -- cgit v1.2.3-54-g00ecf