nasser

(ns sliders)

(defmacro slider [l]
  (let [dashes (vec (repeat l "-"))]
    `(do ~@(map (fn [i]
                  `(defn
                     ~(symbol (clojure.string/join (assoc dashes i "*")))
                     []
                     ~(/ i (- l 1))))
                (range l)))))

vizanto

//
// Nasty code below:
//
package java.internal;
import java.internal.Runtime;

/**
 * These classes are automatically generated by the compiler. They are only
 * here so there is an option for e.g. defining them as externs if you are compiling
 * in modules (untested)

nasser

Rejoyce

Rejoyce is a purely functional, persistent, concatenative language

It maintains an In queue and an Out stackThe In queue represents code yet to be executed, and is initially populated with the program to run

The Out stack represents data to be manipulated, and is initially empty

The two record the complete state of execution at any time

To evaluate a token, Rejoyce returns a completely new In and Out stack

CornuAmmonis

file=""
tweet=""

if [ -n "$1" ]
then
 file="$1" 
else
 echo "Usage: splittwit /path/to/video.mp4 \"My tweet goes here!\""
 exit
fi 

nasser

(defmacro doarray [[variable array] & body]
  (let [i (with-meta (gensym "i") {:tag Int64})
        var-type (or (-> variable meta :tag) 'Object)
        arr-type (symbol->array-type var-type)
        arr (with-meta (gensym "array") {:tag arr-type})]
    `(let [~arr ~array]
       (loop [~i 0]
         (if (= ~i (.Length ~arr))
           nil
           (let [~variable (aget ~arr ~i)]

nasser

var imgs = document.querySelectorAll("div.rg_di.rg_el.ivg-i img")
for(var i=0; i<imgs.length;i++) {
  imgs[i].src = imgs[i].parentNode.href.match(/\?imgurl=([^&]+)&/)[1];
  imgs[i].parentNode.removeAttribute("href");
}

nasser

(defrecord Face [vertices normal]
  IHashEq
  (hasheq [this] (bit-xor (.hasheq (.vertices this))
                          (.GetHashCode (.normal this))))
  
  Object
  (ToString [this] (str "#Face[" (.normal this) " " (.vertices this) "]"))
  
  IPersistentCollection
  (count [this] (count (.vertices this)))

nasser

  var fs = {
    read: (filename, cb, err) => {
      navigator.webkitPersistentStorage.requestQuota(0, (bytes) => {
        window.webkitRequestFileSystem(PERSISTENT, bytes, (fs) => {
          fs.root.getFile(filename, {},
            (entry) => {
              entry.file((file) => {
                var reader = new FileReader();
                if(err)
                  reader.onerror = err;

nasser

(import Undo)
(import |System.Collections.Generic.List`1|)
(let [method (.GetMethod Undo "GetRecords" (enum-or BindingFlags/NonPublic
                                                    BindingFlags/Static))
      undos (|System.Collections.Generic.List`1[System.String]|.)
      redos (|System.Collections.Generic.List`1[System.String]|.)]
  (.Invoke method Undo (into-array [undos redos]))
  [undos redos])
;; [("Selection Change" "Create Empty Game Object" "Selection Change"
;;   "Selection Change" "Selection Change" "Selection Change" "Rename GameObject")

talecrafter

using UnityEngine;
using UnityEditor;
using System;
using System.Collections;
using System.Collections.Generic;

public class ColorToCSharp : EditorWindow
{
	[SerializeField]
	private bool _usedColorPickerOnce = false;