GlenDC

#!/bin/bash

if [ "$#" -lt 1 ]; then
    TARGET_DIR="."
else
    TARGET_DIR="$1"
fi

if [ "$#" -lt 2 ]; then
    ROOT_DIR="$HOME/exploor/images"

GlenDC

curl -o quine.f90 https://gist.githubusercontent.com/GlenDC/11dadd47137b2c1a5587/raw/ && \
alias _fortran='(gfortran -o quine quine.f90 && ./quine)' && \
alias _fotopy='(_fortran > quine.py && rm -f quine)' && \
alias _pytofo='(python quine.py > quine.f90)' && \
_fotopy && _pytofo && _fotopy && _pytofo && _fortran

GlenDC

curl -o quine.py 'https://gist.githubusercontent.com/GlenDC/5ec5528c7fcac5468715/raw/' \
&& python quine.py | python | python

GlenDC

PROGRAM QUINE
    IMPLICIT NONE

    WRITE(*, '(A)') '#!/usr/bin/python'
    WRITE(*, '(A)') ''
    WRITE(*, '(A)') 'sq = chr(39) ; dq = chr(34)'
    WRITE(*, '(A)') 'ind = lambda str: ''    '' + str'
    WRITE(*, '(A)') 'sqe = lambda str: sq + str + sq'
    WRITE(*, '(A)') 'dqe = lambda str: dq + str + dq'
    WRITE(*, '(A)') ''

GlenDC

 PROGRAM QUINE
   CHARACTER(LEN=*), PARAMETER :: Quote = Char(39)
   CHARACTER(LEN=86), DIMENSION(11) :: Source
   INTEGER :: i ; CHARACTER(LEN=2) :: Line
   Source( 1) = 'PROGRAM QUINE'
   Source( 2) = '  CHARACTER(LEN=*), PARAMETER :: Quote = Char(39)'
   Source( 3) = '  CHARACTER(LEN=86), DIMENSION(11) :: Source'
   Source( 4) = '  INTEGER :: i ; CHARACTER(LEN=2) :: Line'
   Source( 5) = '  DO i=1, 4 ; WRITE(*,*) TRIM(Source(i)) ; END DO'
   Source( 6) = '  DO i=1, 11'

GlenDC

#!/usr/bin/python

quote = chr(34)
source = [
    "#!/usr/bin/python",
    "",
    "quote = chr(34)",
    "source = [",
    "     ]",
    "",

GlenDC

PROGRAM QUINE
  IMPLICIT NONE
  INTEGER :: i
  CHARACTER(LEN=80), DIMENSION(10) :: Source
  Source(1) = "PROGRAM QUINE"
  Source(2) = "  IMPLICIT NONE"
  Source(3) = "  INTEGER :: i"
  Source(4) = "  DO i=1, 3"
  Source(5) = "  DO i=1, 5"
  Source(6) = "  END DO"

GlenDC

diff --git a/src/Native/VirtualDom.js b/src/Native/VirtualDom.js
index efb9ce7..45ec52e 100644
--- a/src/Native/VirtualDom.js
+++ b/src/Native/VirtualDom.js
@@ -1407,13 +1407,18 @@ Elm.Native.VirtualDom.make = function(elm)
 		return newNode;
 	}
 
+	function predicate(a, b)
+	{

GlenDC

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Window
  
main : Signal Element
main =
  Signal.map render Window.dimensions

renderGridLine : Int -> Int -> Int -> Int -> Form

GlenDC

func AllUniqueCombinations_Recursive(combination, array []int, result [][]int) [][]int {
	if len(array) > 0 {
		for i := range array {
			c := make([]int, 0, len(combination))
			c = append(c, combination...)
			c = append(c, array[i])
			a := make([]int, 0, len(array)-1)
			a = append(a, array[0:i]...)
			a = append(a, array[i+1:]...)
			result = AllUniqueCombinations_Recursive(c, a, result)