Qqwy

/*
 * Date: 2018-11-26
 * Author of this C code: Wiebe-Marten Wijnja (Qqwy).
 * Author of original JavaScript-version: Unknown.
 *
 * This version uses phase-accumulation to ensure that the signal remains continuous throughout,
 * and that there are no nasty clicks when we change to the next note.
 * You can add the directive `DISCONTINUOUS VERSION` (using e.g. the `-D` flag of `gcc` and `clang`)
 * to compile it as the original version, that bases its samples only directly on the current sample,
 * and therefore includes clicks whenever the note changes.

Qqwy

{-# LANGUAGE DataKinds, KindSignatures, TypeFamilies, PolyKinds, GADTs #-}
module Example where

import qualified Control.Arrow
import qualified Prelude
import Prelude hiding (id, (.))
import qualified Control.Category


-- |  Example type: A Qfun is a function with a Quality: Either 'Good' or 'Bad'.

Qqwy

#include <iostream>
#include <vector>

auto continuation = [](auto && val){return [=](auto && cont) { return cont(val);};};
auto style = [](const auto &val) { return val; };
auto mod = [](auto &&modv) { return [=](auto &&truecont){ return [=](auto &&falsecont) { return [=](auto &&val) { if (val % modv) { return truecont(val); } else { return falsecont(val); }; }; }; }; };
auto passing = [](auto &&val) { return [=](auto &&cont){ return [=](auto &&) {return cont(val);};};};

bool isLeapYear(int year){
  return (continuation)

Qqwy

defmodule Capturepipe do
  @doc """
  A pipe-operator that extends the normal pipe
  in one tiny way:

  It allows the syntax of having a bare `&1` capture
  to exist inside a datastructure as one of the pipe results.
  This is useful to insert the pipe's results into a datastructure
  such as a tuple.

Qqwy

defmodule Capturepipe do
  @doc """
  A pipe-operator that extends the normal pipe
  in one tiny way:

  It allows the syntax of having a bare `&1` capture
  to exist inside a datastructure as one of the pipe results.
  This is useful to insert the pipe's results into a datastructure
  such as a tuple.

Qqwy

defmodule Capturepipe do
  @doc """
  A pipe-operator that extends the normal pipe
  in one tiny way:

  It allows the syntax of having a bare `&1` capture
  to exist inside a datastructure as one of the pipe results.
  This is useful to insert the pipe's results into a datastructure
  such as a tuple.

Qqwy

{:beam_file, Addition,
 [
   {:__info__, 1, 2},
   {:"__type_check_spec_for_add/2__", 0, 18},
   {:add, 2, 8},
   {:baseline_add, 2, 16},
   {:module_info, 0, 20},
   {:module_info, 1, 22}
 ], [vsn: [337339698024769425821845159222917769638]],
 [

Qqwy

defmodule Example do
  use OverrideExample1
  use OverrideExample2
  @a 1
  @b 2
end
# Prints at compile-time:
#
#   yaay: {:a, [line: 4], [1]}
#   wooh: {:a, [line: 4, context: OverrideExample2], [1]}

Qqwy

-module(caesar_cipher, [
            shift_plaintext_cyphertext/3,
            shift_plainchar_cypherchar/3,
            shift_plainletter_cypherletter/3
        ]).

:- use_module(library(reif)).

:- use_module(library(clpz)).
:- use_module(library(lists)).

Qqwy

       *> Compile using GNU Cobol, e.g.: `cobc -x gcd_maxmin.cob`
       IDENTIFICATION DIVISION.
       PROGRAM-ID. gcd-maxmin.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUMS.
           05 NUMS-ELEMS PIC 9(9)
              OCCURS 0 TO 9999 TIMES DEPENDING ON NUMS-LEN.
       77 NUMS-IDX PIC 9(9) COMP.