Data commit

Task/Unicode-variable-names/00-META.yaml

@@ -0,0 +1,3 @@
+---
+from: http://rosettacode.org/wiki/Unicode_variable_names
+note: Unicode

Task/Unicode-variable-names/00-TASK.txt

@@ -0,0 +1,12 @@
+;Task:
+# Describe, and give a pointer to documentation on your languages use of characters ''beyond'' those of the ASCII character set in the naming of variables.
+# Show how to:
+:* Set a variable with a name including the 'Δ', (delta ''character''), to 1 
+:* Increment it
+:* Print its value.
+
+
+;Related task: 
+* [[Case-sensitivity of identifiers]]
+<br><br>
+

Task/Unicode-variable-names/11l/unicode-variable-names.11l

@@ -0,0 +1,3 @@
+V Δx = 1
+Δx++
+print(Δx)

Task/Unicode-variable-names/8th/unicode-variable-names.8th

@@ -0,0 +1,19 @@
+1 var, Δ
+
+Δ @ n:1+ Δ !
+
+Δ @ . cr
+
+\ unicode silliness
+
+: 念 ' G:@ w:exec ;
+: 店 ' G:! w:exec ;
+: ਵਾਧਾ ' n:1+ w:exec ;
+: الوداع ' G:bye w:exec ;
+: キャリッジリターン ' G:cr w:exec ;
+: प्रिंट ' G:. w:exec ;
+
+Δ 念 ਵਾਧਾ Δ 店
+
+Δ 念 प्रिंट キャリッジリターン
+الوداع

Task/Unicode-variable-names/ACL2/unicode-variable-names.acl2

@@ -0,0 +1,2 @@
+(let ((Δ 1))
+     (1+ Δ))

Task/Unicode-variable-names/Ada/unicode-variable-names.ada

@@ -0,0 +1,8 @@
+with Ada.Text_IO;
+procedure main is
+   Δ : Integer;
+begin
+   Δ := 41;
+   Δ := Δ + 1;
+   Ada.Text_IO.Put_Line (Δ'Img);
+end main;

Task/Unicode-variable-names/AppleScript/unicode-variable-names-1.applescript

@@ -0,0 +1,3 @@
+set |Δ| to 1
+set |Δ| to |Δ| + 1
+return |Δ|

Task/Unicode-variable-names/AppleScript/unicode-variable-names-2.applescript

@@ -0,0 +1 @@
+2

Task/Unicode-variable-names/Arturo/unicode-variable-names.arturo

@@ -0,0 +1,4 @@
+"Δ": 1
+"Δ": inc var "Δ"
+
+print ["Delta =>" var "Δ"]

Task/Unicode-variable-names/AutoHotkey/unicode-variable-names.ahk

@@ -0,0 +1,3 @@
+Δ = 1
+Δ++
+MsgBox, % Δ

Task/Unicode-variable-names/BaCon/unicode-variable-names.bacon

@@ -0,0 +1,9 @@
+PRAGMA COMPILER clang
+
+DECLARE Δ TYPE int
+
+Δ = 1
+
+INCR Δ
+
+PRINT Δ

Task/Unicode-variable-names/Bracmat/unicode-variable-names.bracmat

@@ -0,0 +1,4 @@
+( (Δ=1)
+& 1+!Δ:?Δ
+& out$("Δ:" !Δ)
+);

Task/Unicode-variable-names/C-sharp/unicode-variable-names.cs

@@ -0,0 +1,9 @@
+class Program
+{
+    static void Main()
+    {
+        var Δ = 1;
+        Δ++;
+        System.Console.WriteLine(Δ);
+    }
+}

Task/Unicode-variable-names/C/unicode-variable-names.c

@@ -0,0 +1,9 @@
+// Works for clang and GCC 10+
+#include<stdio.h>
+
+int main() {
+    int Δ = 1;      // if unsupported, use \u0394
+    Δ++;
+    printf("%d",Δ);
+    return 0;
+}

Task/Unicode-variable-names/Clojure/unicode-variable-names.clj

@@ -0,0 +1,2 @@
+(let [Δ 1]
+  (inc Δ))

Task/Unicode-variable-names/Common-Lisp/unicode-variable-names.lisp

@@ -0,0 +1,2 @@
+(let ((Δ 1))
+  (incf Δ))

Task/Unicode-variable-names/Crystal/unicode-variable-names.crystal

@@ -0,0 +1,3 @@
+Δ = 1
+Δ += 1
+puts Δ

Task/Unicode-variable-names/D/unicode-variable-names.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    auto Δ = 1;
+    Δ++;
+    writeln(Δ);
+}

Task/Unicode-variable-names/DWScript/unicode-variable-names.dw

@@ -0,0 +1,5 @@
+var Δ : Integer;
+
+Δ := 1;
+Inc(Δ);
+PrintLn(Δ);

Task/Unicode-variable-names/Delphi/unicode-variable-names.delphi

@@ -0,0 +1,17 @@
+(* Compiled with Delphi XE *)
+program UnicodeVariableName;
+
+{$APPTYPE CONSOLE}
+
+uses
+  SysUtils;
+
+var
+  Δ: Integer;
+
+begin
+  Δ:= 1;
+  Inc(Δ);
+  Writeln(Δ);
+  Readln;
+end.

Task/Unicode-variable-names/EchoLisp/unicode-variable-names.l

@@ -0,0 +1,4 @@
+(define ∆-🍒 1)  → ∆-🍒
+(set! ∆-🍒 (1+ ∆-🍒)) → 2
+(printf "🔦 Look at ∆-🍒 : %d" ∆-🍒)
+🔦 Look at ∆-🍒 : 2

Task/Unicode-variable-names/Elena/unicode-variable-names.elena

@@ -0,0 +1,7 @@
+public program()
+{
+    var Δ := 1;
+    Δ := Δ + 1;
+
+    console.writeLine:Δ
+}

Task/Unicode-variable-names/Emacs-Lisp/unicode-variable-names.l

@@ -0,0 +1,3 @@
+(setq Δ 1)
+(setq Δ (1+ Δ))
+(message "Δ is %d" Δ)

Task/Unicode-variable-names/F-Sharp/unicode-variable-names.fs

@@ -0,0 +1,3 @@
+let mutable Δ = 1
+Δ <- Δ + 1
+printfn "%d" Δ

Task/Unicode-variable-names/Factor/unicode-variable-names.factor

@@ -0,0 +1,6 @@
+USE: locals
+[let
+    1 :> Δ!
+    Δ 1 + Δ!
+    Δ .
+]

Task/Unicode-variable-names/Forth/unicode-variable-names.fth

@@ -0,0 +1,4 @@
+variable ∆
+1 ∆ !
+1 ∆ +!
+∆ @ .

Task/Unicode-variable-names/FreeBASIC/unicode-variable-names.basic

@@ -0,0 +1,6 @@
+'FB 1.05.0 Win64
+
+Var delta = 1
+delta += 1
+Print delta  '' 2
+Sleep

Task/Unicode-variable-names/Frink/unicode-variable-names.frink

@@ -0,0 +1,3 @@
+Δ = 1
+Δ = Δ + 1
+println[Δ]

Task/Unicode-variable-names/Go/unicode-variable-names.go

@@ -0,0 +1,9 @@
+package main
+
+import "fmt"
+
+func main() {
+    Δ := 1
+    Δ++
+    fmt.Println(Δ)
+}

Task/Unicode-variable-names/Haskell/unicode-variable-names.hs

@@ -0,0 +1,3 @@
+main = print ψ
+    where δΔ = 1
+          ψ = δΔ + 1

Task/Unicode-variable-names/Java/unicode-variable-names.java

@@ -0,0 +1,5 @@
+int Δ = 1;
+double π = 3.141592;
+String 你好 = "hello";
+Δ++;
+System.out.println(Δ);

Task/Unicode-variable-names/JavaScript/unicode-variable-names.js

@@ -0,0 +1,7 @@
+var ᾩ = "something";
+var ĦĔĽĻŎ = "hello";
+var 〱〱〱〱 = "too less";
+var जावास्क्रिप्ट = "javascript"; // ok that's JavaScript in hindi
+var KingGeorgeⅦ = "Roman numerals.";
+
+console.log([ᾩ, ĦĔĽĻŎ, 〱〱〱〱, जावास्क्रिप्ट, KingGeorgeⅦ])

Task/Unicode-variable-names/Jq/unicode-variable-names-1.jq

@@ -0,0 +1 @@
+{ "Δ": 1 } | .["Δ"]

Task/Unicode-variable-names/Jq/unicode-variable-names-2.jq

@@ -0,0 +1 @@
+.["Δ"]

Task/Unicode-variable-names/Jq/unicode-variable-names-3.jq

@@ -0,0 +1 @@
+."Δ"

Task/Unicode-variable-names/Jq/unicode-variable-names-4.jq

@@ -0,0 +1,3 @@
+{ "Δ": 1 }    # initialization
+| .["Δ"] += 1 # increment by 1
+| .["Δ"]      # emit the incremented value

Task/Unicode-variable-names/Julia/unicode-variable-names-1.julia

@@ -0,0 +1,2 @@
+julia> Δ = 1 ; Δ += 1 ; Δ
+2

Task/Unicode-variable-names/Julia/unicode-variable-names-2.julia

@@ -0,0 +1,2 @@
+julia> Δ̂₂ = Δ^2
+4

Task/Unicode-variable-names/Kotlin/unicode-variable-names.kotlin

@@ -0,0 +1,5 @@
+fun main(args: Array<String>) {
+    var Δ = 1
+    Δ++
+    print(Δ)
+}

Task/Unicode-variable-names/LOLCODE/unicode-variable-names.lol

@@ -0,0 +1,3 @@
+I HAS A SRS "Δ" ITZ 1
+SRS "Δ" R SUM OF SRS ":(394)" AN 1
+VISIBLE SRS ":[GREEK CAPITAL LETTER DELTA]"

Task/Unicode-variable-names/Lily/unicode-variable-names.lily

@@ -0,0 +1,3 @@
+var Δ = 1
+Δ += 1
+print(Δ.to_s())

Task/Unicode-variable-names/Lingo/unicode-variable-names.lingo

@@ -0,0 +1,4 @@
+Δ = 1
+Δ = Δ + 1
+put Δ
+-- 2

Task/Unicode-variable-names/LiveCode/unicode-variable-names.livecode

@@ -0,0 +1,4 @@
+put 1 into Δ
+add 1 to Δ
+put Δ
+-- result is 2

Task/Unicode-variable-names/Lua/unicode-variable-names.lua

@@ -0,0 +1,3 @@
+∆ = 1
+∆ = ∆ + 1
+print(∆)

Task/Unicode-variable-names/M2000-Interpreter/unicode-variable-names.m2000

@@ -0,0 +1,16 @@
+Δ=1
+Δ++
+Print Δ
+ᾩ=3
+Print  ᾩ**2=ᾩ^2,  ᾩ^2-1=8
+Τύπωσε ᾩ**2=ᾩ^2,  ᾩ^2-1=8  ' this is Print statement too
+Print ᾡ=3
+जावास्क्रिप्ट=100
+जावास्क्रिप्ट++
+Print "जावास्क्रिप्ट=";जावास्क्रिप्ट
+ĦĔĽĻŎ$="hello"
+Print ĦĔĽĻŎ$+ħĕľļŏ$="hellohello"
+〱〱〱〱$="too less"
+Print Left$(〱〱〱〱$, 3)="too"
+
+c͓͈̃͂̋̈̆̽h̥̪͕ͣ͛̊aͨͣ̍͞ơ̱͔̖͖̑̽ș̻̥ͬ̃̈ͩ =100  : Print "c͓͈̃͂̋̈̆̽h̥̪͕ͣ͛̊aͨͣ̍͞ơ̱͔̖͖̑̽ș̻̥ͬ̃̈ͩ ="; c͓͈̃͂̋̈̆̽h̥̪͕ͣ͛̊aͨͣ̍͞ơ̱͔̖͖̑̽ș̻̥ͬ̃̈ͩ

Task/Unicode-variable-names/Mathematica/unicode-variable-names.math

@@ -0,0 +1,3 @@
+Δ = 1;
+Δ++;
+Print[Δ]

Task/Unicode-variable-names/Nemerle/unicode-variable-names.nemerle

@@ -0,0 +1,11 @@
+using System.Console;
+
+module UnicodeVar
+{
+    Main() : void
+    {
+        mutable Δ = 1;
+        Δ++;
+        WriteLine($"Δ = $Δ");
+    }
+}

Task/Unicode-variable-names/NetRexx/unicode-variable-names.netrexx

@@ -0,0 +1,33 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+upperΔ = 1
+Δupper = upperΔ
+lowerδ = 2
+δlower = lowerδ
+
+say upperΔ '+' Δupper '= \-'
+upperΔ = upperΔ + Δupper
+say upperΔ
+
+say lowerδ '+' δlower '= \-'
+lowerδ = lowerδ + δlower
+say lowerδ
+say
+
+-- Unicode works with the NetRexx built-in functions
+Υππερ = '\u0391'.sequence('\u03a1') || '\u03a3'.sequence('\u03a9') -- ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ
+Λοωερ = '\u03b1'.sequence('\u03c1') || '\u03c3'.sequence('\u03c9') -- αβγδεζηθικλμνξοπρστυφχψω
+say Υππερ'.Lower =' Υππερ.lower()
+say Λοωερ'.Upper =' Λοωερ.upper()
+say
+
+-- Note: Even with unicode characters NetRexx variables are case-insensitive
+numeric digits 12
+δ = 20.0
+π = Math.PI
+θ = Π * Δ
+σ = Θ ** 2 / (Π * 4) -- == Π * (Δ / 2) ** 2
+say 'Π =' π', diameter =' δ', circumference =' Θ', area =' Σ
+
+return

Task/Unicode-variable-names/Nim/unicode-variable-names.nim

@@ -0,0 +1,3 @@
+var Δ = 1
+inc Δ
+echo Δ

Task/Unicode-variable-names/Objeck/unicode-variable-names.objeck

@@ -0,0 +1,9 @@
+class Test {
+  function : Main(args : String[]) ~ Nil {
+    Δ := 1;
+    π := 3.141592;
+    你好 := "hello";
+    Δ += 1;
+    Δ->PrintLine();
+  }
+}

Task/Unicode-variable-names/Ol/unicode-variable-names.ol

@@ -0,0 +1,3 @@
+(define Δ 1)
+(define Δ (+ Δ 1))
+(print Δ)

Task/Unicode-variable-names/PHP/unicode-variable-names.php

@@ -0,0 +1,4 @@
+<?php
+$Δ = 1;
+++$Δ;
+echo $Δ;

Task/Unicode-variable-names/Peloton/unicode-variable-names-1.peloton

@@ -0,0 +1,3 @@
+<@ LETVARLIT>Δ|1</@>
+<@ ACTICRVAR>Δ</@>
+<@ SAYVAR>Δ</@>

Task/Unicode-variable-names/Peloton/unicode-variable-names-2.peloton

@@ -0,0 +1,3 @@
+<@ LETVARLIT>三角洲|1</@>
+<@ ACTICRVAR>三角洲</@>
+<@ SAYVAR>三角洲</@>

Task/Unicode-variable-names/Perl/unicode-variable-names-1.pl

@@ -0,0 +1,5 @@
+use utf8;
+
+my $Δ = 1;
+$Δ++;
+print $Δ, "\n";

Task/Unicode-variable-names/Perl/unicode-variable-names-2.pl

@@ -0,0 +1,12 @@
+use utf8;
+
+BEGIN {
+    my $val;
+    sub Δ () : lvalue {
+        $val;
+    }
+}
+
+Δ = 1;
+Δ++;
+print Δ, "\n";

Task/Unicode-variable-names/Perl/unicode-variable-names-3.pl

@@ -0,0 +1,10 @@
+use utf8;
+use v5.10;
+
+sub Δ () : lvalue {
+    state $val;
+}
+
+Δ = 1;
+Δ++;
+say Δ;

Task/Unicode-variable-names/Phix/unicode-variable-names.phix

@@ -0,0 +1,6 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #004080;">integer</span> <span style="color: #000000;">Δ</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
+     <span style="color: #000000;">Δ</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
+     <span style="color: #0000FF;">?</span><span style="color: #000000;">Δ</span>
+<!--

Task/Unicode-variable-names/PicoLisp/unicode-variable-names.l

@@ -0,0 +1,8 @@
+: (setq Δ 1)
+-> 1
+: Δ
+-> 1
+: (inc 'Δ)
+-> 2
+: Δ
+-> 2

Task/Unicode-variable-names/Pike/unicode-variable-names.pike

@@ -0,0 +1,7 @@
+#charset utf8
+void main()
+{
+    int Δ = 1;
+    Δ++;
+    write( Δ +"\n");
+}

Task/Unicode-variable-names/PowerShell/unicode-variable-names.psh

@@ -0,0 +1,3 @@
+$Δ = 2
+$π = 3.14
+$π*$Δ

Task/Unicode-variable-names/Prolog/unicode-variable-names-1.pro

@@ -0,0 +1,11 @@
+% Unicode in predicate names:
+是.            % be: means, approximately, "True".
+不是 :- \+ 是.  % not be: means, approximately, "False".  Defined as not 是.
+
+% Unicode in variable names:
+test(Garçon, Δ) :-
+  Garçon = boy,
+  Δ = delta.
+
+% Call test2(1, Result) to have 2 assigned to Result.
+test2(Δ, R) :- R is Δ + 1.

Task/Unicode-variable-names/Prolog/unicode-variable-names-2.pro

@@ -0,0 +1,12 @@
+?- 是.
+true.
+
+?- 不是.
+false.
+
+?- test(X,Y).
+X = boy,
+Y = delta.
+
+?- test2(1,Result).
+Result = 2.

Task/Unicode-variable-names/Python/unicode-variable-names.py

@@ -0,0 +1,5 @@
+>>> Δx = 1
+>>> Δx += 1
+>>> print(Δx)
+2
+>>>

Task/Unicode-variable-names/R/unicode-variable-names.r

@@ -0,0 +1,3 @@
+f <- function(`∆`=1) `∆`+1
+
+f(1)

Task/Unicode-variable-names/REXX/unicode-variable-names.rexx

@@ -0,0 +1,5 @@
+/*REXX program (using the R4 REXX interpreter) which uses a Greek delta char).*/
+'chcp'  1253  "> NUL"                  /*ensure we're using correct code page.*/
+Δ=1                                    /*define delta (variable name  Δ)  to 1*/
+Δ=Δ+1                                  /*bump the delta REXX variable by unity*/
+say 'Δ=' Δ                             /*stick a fork in it,  we're all done. */

Task/Unicode-variable-names/Racket/unicode-variable-names.rkt

@@ -0,0 +1,12 @@
+#lang racket
+
+;; Racket can use Unicode in identifier names
+(define √ sqrt)
+(√ 256) ; -> 16
+;; and in fact the standard language makes use of some of these
+(λ(x) x) ; -> an identity function
+
+;; The required binding:
+(define Δ 1)
+(set! Δ (add1 Δ))
+(printf "Δ = ~s\n" Δ) ; prints "Δ = 2"

Task/Unicode-variable-names/Raku/unicode-variable-names-1.raku

@@ -0,0 +1,3 @@
+my $Δ = 1;
+$Δ++;
+say $Δ;

Task/Unicode-variable-names/Raku/unicode-variable-names-2.raku

@@ -0,0 +1,9 @@
+my @ᐁ = (0, 45, 60, 90);
+
+sub π { pi };
+
+sub postfix:<°>($degrees) { $degrees * π / 180 };
+
+for @ᐁ -> $ಠ_ಠ { say sin $ಠ_ಠ° };
+
+sub c͓͈̃͂̋̈̆̽h̥̪͕ͣ͛̊aͨͣ̍͞ơ̱͔̖͖̑̽ș̻̥ͬ̃̈ͩ { 'HE COMES' }

Task/Unicode-variable-names/Retro/unicode-variable-names.retro

@@ -0,0 +1,5 @@
+'Δ var
+#1 !Δ
+@Δ n:put
+&Δ v:inc
+@Δ n:put

Task/Unicode-variable-names/Ring/unicode-variable-names.ring

@@ -0,0 +1,4 @@
+# Project : Unicode variable names
+
+Δ = "Ring Programming Language"
+see Δ + nl

Task/Unicode-variable-names/Ruby/unicode-variable-names.rb

@@ -0,0 +1,3 @@
+Δ = 1
+Δ += 1
+puts Δ  # => 2

Task/Unicode-variable-names/Rust/unicode-variable-names.rust

@@ -0,0 +1,8 @@
+#![feature(non_ascii_idents)]
+#![allow(non_snake_case)]
+
+fn main() {
+    let mut Δ: i32 = 1;
+    Δ += 1;
+    println!("{}", Δ);
+}

Task/Unicode-variable-names/S-lang/unicode-variable-names.slang

@@ -0,0 +1,11 @@
+define ∆increment(∆ref) {
+  @∆ref++;
+}
+variable foo∆bar = 1;
+foo∆bar++;
+variable ∆bar = 1;
+∆bar++;
+∆increment(&∆bar);
+% foo∆bar should be 2 and ∆bar should be 3.
+print(foo∆bar);
+print(∆bar);

Task/Unicode-variable-names/Scala/unicode-variable-names.scala

@@ -0,0 +1,5 @@
+var Δ = 1
+val π = 3.141592
+val 你好 = "hello"
+Δ += 1
+println(Δ)

Task/Unicode-variable-names/SenseTalk/unicode-variable-names.sensetalk

@@ -0,0 +1,3 @@
+put 1 into Δ
+add 1 to Δ
+put Δ

Task/Unicode-variable-names/Sidef/unicode-variable-names.sidef

@@ -0,0 +1,3 @@
+var Δ = 1;
+Δ += 1;
+say Δ;

Task/Unicode-variable-names/Stata/unicode-variable-names.stata

@@ -0,0 +1,13 @@
+sca Δ=10
+sca Δ=Δ+1
+di Δ
+
+local Δ=20
+local ++Δ
+di `Δ'
+
+mata
+Δ=30
+Δ++
+Δ
+end

Task/Unicode-variable-names/Swift/unicode-variable-names.swift

@@ -0,0 +1,5 @@
+var Δ = 1
+let π = 3.141592
+let 你好 = "hello"
+Δ++
+println(Δ)

Task/Unicode-variable-names/Tcl/unicode-variable-names.tcl

@@ -0,0 +1,4 @@
+set Δx 1
+incr Δx
+puts [set Δx]
+puts ${Δx}

Task/Unicode-variable-names/UNIX-Shell/unicode-variable-names.sh

@@ -0,0 +1,3 @@
+Δ=1
+Δ=`expr $Δ + 1`
+echo $Δ

Task/Unicode-variable-names/Visual-Basic/unicode-variable-names.vb

@@ -0,0 +1,6 @@
+Sub Main()
+    Dim Δ As Integer
+    Δ=1
+    Δ=Δ+1
+    Debug.Print Δ
+End Sub

Task/Unicode-variable-names/Wren/unicode-variable-names.wren

@@ -0,0 +1,4 @@
+var a = 3
+var b = 2
+var delta = a - b  // ok
+var Δ = delta      // not ok

Task/Unicode-variable-names/Zkl/unicode-variable-names.zkl

@@ -0,0 +1,9 @@
+delta:="\U0394;";  // UTF-8 delta
+klass:=	// embryo(names, numFcns, numClasses, numParents, ...)
+     self.embryo(L("","",delta),0,0,0).cook();
+klass.setVar(0,Ref(1));  // indirect set since delta not valid var name
+klass.vars.println();
+
+dv:=klass.setVar(0);  // which actually gets the var, go figure
+dv.inc();	      // ie (*ptr)++
+dv.value.println();