m93a

/* Any copyright is dedicated to the Public Domain.
 * http://creativecommons.org/publicdomain/zero/1.0/ */

(function(){

/**
 * Rewrite this URL as an URL relative to the base.
 * TODO: Doesn't support backslashes!
 * 
 * @parameter {string|URL}  base       The resulting URL will be relative to this one.

m93a

function LVHaack(n){
  n=+n;
  with(Math){
    return sqrt( 1/PI * ( acos(1-n/12) - 0.5*sin(2*acos(1-n/12)) + (1/3)*pow(sin(acos(1-n/12)),3) ) )
  }
}

/* For LD Haack change `(1/3)*pow` to `0*pow`,
   for tangent Haack change it to `(2/3)*pow` */

m93a

namespace App
{
    class App
    {
        public async void Main()
        {
            var form = new MyForm();
            await form.Loaded.Once(); // Magic happens!
            form.Activate();
        }

m93a

# Emoji
# http://unicode.org/emoji/charts/full-emoji-list.html

<Multi_key> <e> <m> <o> <colon> <D>              : "😀"
<Multi_key> <e> <m> <o> <x> <D>                  : "😁"
<Multi_key> <e> <m> <o> <x> <apostrophe> <D>     : "😂"
<Multi_key> <e> <m> <o> <colon> <apostrophe> <D> : "😂"
<Multi_key> <e> <m> <o> <r> <o> <f> <l>          : "🤣"
<Multi_key> <e> <m> <o> <colon> <d>              : "😃"
<Multi_key> <e> <m> <o> <x> <parenright>         : "😄"

m93a

Sub MakeExplicit()

    ' je potřeba přidat referenci na RegExp:
    ' v okně maker Nástroje > Reference
    ' zaškrtnout Microsoft VBScript Regular Expressions 5.5
    
    ' detekuje všechny mezery
    Dim whitespace As RegExp
    Set whitespace = New RegExp

m93a

Sub InsertSeparatorLines()
    ' každé číslo má tvar:
    ' n * signif + c; signif = konst.
    '
    ' když se změní n, tj. číslo série,
    ' vlož prázdný řádek
    
    ' significance
    Dim signif As Integer
    signif = 10

m93a

namespace HydraExtensions
{
    /**
     * <summary>
     *     This class contains extensions to event-related
     *     types, such as EventHandler and EventHandler&lt;T>.
     * </summary>
     **/
     
    public static class EventExtensions

m93a

@echo off
rem To use bash seamlessly from 32bit apps,
rem add this file to your %PATH%.

if exist C:\Windows\Sysnative\bash.exe (
  start "bash.exe" /D "%cd%" /B /wait "C:\Windows\Sysnative\bash.exe" %*
) else (
  start "bash.exe" /D "%cd%" /B /wait "C:\Windows\System32\bash.exe" %*
)

m93a

(function(){

window.fibonacci = function(){
  var n = new Number(1);
  n.next = next;
  return n;
};

function next(){
  var n = new Number( this + (this.prev||0) );

m93a

int main(int args_length, char** args){
    
    freopen("prog.txt","w",stdout);

    cout.precision(17);
    cout << fixed;