turanct

(define create-coord
  (lambda (x y)
    (list x y)))

(define get-x
  (lambda (coord)
    (car coord)))

(define get-y
  (lambda (coord)

turanct

#!/usr/bin/env guile -s
!#

(use-modules
  (srfi srfi-1)
  (ice-9 rdelim))

(define words-path "words.txt")

(define random-word-from-file

turanct

<?php

while(1){echo"> ";$i=rtrim(stream_get_line(STDIN,512,PHP_EOL),';');try{@eval('print_r('.$i.');');}catch(Exception$e){print_r($e);}echo"\n";}

turanct

import Text.ParserCombinators.Parsec

data Query = And Query Query
           | Or Query Query
           | Not Query
           | Statement String deriving (Show)

andParser = do
    arg1 <- statementParser
    string " AND "

turanct

import Shop

main = do
    contents <- getContents

    let
        inventory1 = inventoryFromFile contents
        shop1 = Shop "Simon Says" inventory1

    putStrLn $ show shop1

turanct

/tc 00:00:14:00 00:00:17:11
De Amerikaanse overheid
bedreigde Zweden met ernstige maatregelen.

/tc 00:00:17:16 00:00:20:06
-tenzij file sharing sites, zoals
de Pirate Bay, neergehaald werden.

/tc 00:00:23:13 00:00:28:04
De rechtszaak tegen de oprichters van

turanct

(use-modules (srfi srfi-1) (ice-9 threads))

;; some funtions to generate page content
(define page-contents (list "foo" "bar" "baz" "qux"))

(define generate-page
  (lambda (contents times)
    (cond
      ((eq? 0 times) '())
      (else (append contents (generate-page contents (- times 1)))))))

turanct

<?php

require_once __DIR__ . '/util.php';
require_once __DIR__ . '/wordcount.php';

/**
 * Create a document, containing 100 pages of 1000 times "foo bar baz qux"
 */
$page = str_repeat("foo bar baz qux\n", 1000);
$document = array_fill(0, 100, $page);

turanct

<?php

function partial($function, ...$arguments)
{
    return function() use ($function, $arguments) {
        $fullArguments = array_merge($arguments, func_get_args());

        return call_user_func_array($function, $fullArguments);
    };
}

turanct

; As seen in my previous gist about lisp list-functions
; (https://gist.github.com/turanct/e84be7f355e255c2c1b5)
; all list functions can be created relatively easy from
; a few function calls, using recursive functions.
; As the pattern for those functions is almost always the same,
; that can be abstracted out. The way we do this is using folds.
;
; Folds take a function, an initial value (or carry), and a
; list, and they use the function to combine the carry with the
; next element of the list. When the fold iterated over the