языки без сборки мусора

PS D:\Sources\BrainfuckBenchmark> kotlinc .\bf2.kt -include-runtime -d bf2.jar
PS D:\Sources\BrainfuckBenchmark> cl /O2 /GL bf2.cpp

PS D:\Sources\BrainfuckBenchmark> Measure-Command { .\bf2.exe .\bench.b }
Milliseconds      : 929
Ticks             : 29296322
TotalSeconds      : 2,9296322
TotalMilliseconds : 2929,6322

PS D:\Sources\BrainfuckBenchmark> Measure-Command { java -jar .\bf2.jar .\bench.b }
Seconds           : 2
Milliseconds      : 591
Ticks             : 25910151
TotalSeconds      : 2,5910151
TotalMilliseconds : 2591,0151

$ java -version
openjdk version "1.8.0_222"
OpenJDK Runtime Environment (IcedTea 3.13.0) (Gentoo icedtea-3.13.0)
OpenJDK 64-Bit Server VM (build 25.222-b10, mixed mode)

$ time scala bf.scala  bench.b
warmup
time: 3.01478475s
run
ZYXWVUTSRQPONMLKJIHGFEDCBA
time: 4.423599998s

real    0m8,273s
user    0m9,039s
sys     0m0,080s

$ time ./cpp bench.b 
ZYXWVUTSRQPONMLKJIHGFEDCBA

real    0m1,377s
user    0m1,377s
sys     0m0,000s

openjdk version "13" 2019-09-17
OpenJDK Runtime Environment (build 13+33)
OpenJDK 64-Bit Server VM (build 13+33, mixed mode, sharing)

import java.io.IOException
import java.nio.file.Files
import java.nio.file.Paths

sealed class Op() {
    class Inc(val v: Int): Op()
    class Move(val v: Int): Op()
    class Loop(val loop: Array<Op>): Op()
    object Print: Op()
}

class Tape {
    private var tape: IntArray = IntArray(1)
    private var pos: Int = 0
    
    fun get(): Int {
        return tape[pos]
    }
    
    fun inc(x: Int) {
        tape[pos] += x
    }
    
    fun move(x: Int) {
        pos += x
        while (pos >= tape.size) {
            val tape = IntArray(this.tape.size * 2)
            System.arraycopy(this.tape, 0, tape, 0, this.tape.size)
            this.tape = tape
        }
    }
}
  
class Program(code: String) {
    private val ops: Array<Op>

    init {
        val it = code.iterator()
        ops = parse(it)
    }

    private fun parse(it: CharIterator): Array<Op> {
        val res = arrayListOf<Op>()
        while (it.hasNext()) {
            when (it.next()) {
                '+' -> res.add(Op.Inc(1))
                '-' -> res.add(Op.Inc(-1))
                '>' -> res.add(Op.Move(1))
                '<' -> res.add(Op.Move(-1))
                '.' -> res.add(Op.Print)
                '[' -> res.add(Op.Loop(parse(it)))
                ']' -> return res.toTypedArray()
            }
        }
        return res.toTypedArray()
    }

    fun run() {
        _run(ops, Tape())
    }
    
    private fun _run(program: Array<Op>, tape: Tape) {
        for (op in program) {
            when (op) {
                is Op.Inc -> tape.inc(op.v)
                is Op.Move -> tape.move(op.v)
                is Op.Loop -> while (tape.get() > 0) {
                    _run(op.loop, tape)
                }
                is Op.Print -> print(tape.get().toChar())
            }
        }
    }
}

@Throws(IOException::class)
fun main(args: Array<String>) {
    val code = String(Files.readAllBytes(Paths.get(args[0])))
    val program = Program(code)
    program.run()
}

$ time ./jdk-13/bin/java -jar bf2.jar bench.b 
ZYXWVUTSRQPONMLKJIHGFEDCBA

real    0m1,419s
user    0m1,432s
sys     0m0,014s

#include <cstddef>
#include <cstdint>
#include <cstdio>
#include <sys/mman.h>
#include <unistd.h>
#include <sys/stat.h>

struct tape {
  constexpr tape(int * mem): mem(mem) {};
  
  constexpr decltype(auto) get() { return mem[pos]; }
  constexpr void inc(int x) { get() += x; }
  constexpr void move(int x) { pos += x; }
  
private:
  size_t pos = 0;
  int * mem;
};


const uint8_t * _run(const uint8_t * it, const uint8_t * end, tape & tape) {
  
  while(it != end) {
    switch(*it++) {
      case '+': tape.inc(1); break;
      case '-': tape.inc(-1); break;
      case '>': tape.move(1); break;
      case '<': tape.move(-1); break;
      case '.': {
        fprintf(stderr, "%c", tape.get());
      } break;
      case '[': {
        const uint8_t * newit = nullptr;
        while(tape.get()) newit = _run(it, end, tape);
        it = newit;
      } break;
      case ']': return it;
    }
  }
  return nullptr;
}


auto run(const uint8_t * it, const uint8_t * end) {
  tape tape{(int *)mmap(nullptr, 1024ul * 1024 * 1024 * 1, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0)};
  _run(it, end, tape);
}

size_t file_size(int fd) {
  struct stat64 stat;
  fstat64(fd, &stat);
  return stat.st_size;
}

int main() {
  auto size = file_size(STDIN_FILENO);
  auto data = (const uint8_t *)mmap(nullptr, size, PROT_READ, MAP_PRIVATE|MAP_POPULATE, STDIN_FILENO, 0);
  run(data, data + size);
}

#include <cstddef>
#include <cstdint>
#include <cstdio>
#include <sys/mman.h>
#include <unistd.h>
#include <sys/stat.h>

struct tape {
  constexpr tape(int * mem): mem(mem) {};
  
  constexpr decltype(auto) get() { return mem[pos]; }
  constexpr void inc(int x) { get() += x; }
  constexpr void move(int x) { pos += x; }
  
private:
  size_t pos = 0;
  int * mem;
};

void _run(const uint8_t * begin, const uint8_t * end, tape & tape) {
  decltype(begin) stack_data[1024];
  auto stack = stack_data;
  
  *stack = begin;
  
loop:
  auto it = *stack;
  
  while(it != end) {
    switch(*it++) {
      case '+': tape.inc(1); break;
      case '-': tape.inc(-1); break;
      case '>': tape.move(1); break;
      case '<': tape.move(-1); break;
      case '.': {
        fprintf(stderr, "%c", tape.get());
      } break;
      case '[': {
        *(++stack) = it;
        goto loop;
      } break;
      case ']': {
        if(tape.get()) goto loop; else --stack;
      } break;
    }
  }
}


auto run(const uint8_t * it, const uint8_t * end) {
  tape tape{(int *)mmap(nullptr, 1024ul * 1024 * 1024 * 1, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0)};
  _run(it, end, tape);
}

size_t file_size(int fd) {
  struct stat64 stat;
  fstat64(fd, &stat);
  return stat.st_size;
}

int main() {
  auto size = file_size(STDIN_FILENO);
  auto data = (const uint8_t *)mmap(nullptr, size, PROT_READ, MAP_PRIVATE|MAP_POPULATE, STDIN_FILENO, 0);
  
  run(data, data + size);
}

dmitry@msi:~$ time java -jar main.jar bench.b // openjdk 11.0.4
real	0m17,896s
user	0m17,947s
sys	0m0,044s

dmitry@msi:~$ time ./main-1 < bench.b // clang O2, ofast
real	0m24,229s
user	0m24,211s
sys	0m0,000s

dmitry@msi:~$ time ./main-2 < bench.b // clang O2, ofast
real	0m18,813s
user	0m18,802s
sys	0m0,000s

dmitry@msi:~$ time ./main-1-gcc < bench.b // march, whole, ofast 
real	0m30,050s
user	0m30,024s
sys	0m0,008s

dmitry@msi:~$ time ./main-2-gcc < bench.b // march, whole, ofast
real	0m22,820s
user	0m22,806s
sys	0m0,000s

dmitry@msi:~$ time ./main-1-s < bench.b // -Os
real	0m22,426s
user	0m22,409s
sys	0m0,004s


dmitry@msi:~$ time ./main-2-s < bench.b // -Os
real	0m19,171s
user	0m19,155s
sys	0m0,000s

dmitry@msi:~$ time java -jar main.jar bench.b // openjdk 11.0.4
real	0m17,896s
user	0m17,947s
sys	0m0,044s

dmitry@msi:~$ time ./main-2 < bench.b // clang O2, ofast
real	0m18,813s
user	0m18,802s
sys	0m0,000s

processor	: 0
vendor_id	: GenuineIntel
cpu family	: 6
model		: 37
model name	: Intel(R) Core(TM) i5 CPU         650  @ 3.20GHz
stepping	: 5
microcode	: 0x7
cpu MHz		: 1340.725
cache size	: 4096 KB
physical id	: 0
siblings	: 4
core id		: 0
cpu cores	: 2
apicid		: 0
initial apicid	: 0
fpu		: yes
fpu_exception	: yes
cpuid level	: 11
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe syscall nx rdtscp lm constant_tsc arch_perfmon pebs bts rep_good nopl xtopology nonstop_tsc cpuid aperfmperf pni pclmulqdq dtes64 monitor ds_cpl vmx smx est tm2 ssse3 cx16 xtpr pdcm pcid sse4_1 sse4_2 popcnt aes lahf_lm pti ssbd ibrs ibpb stibp tpr_shadow vnmi flexpriority ept vpid dtherm ida arat flush_l1d
bugs		: cpu_meltdown spectre_v1 spectre_v2 spec_store_bypass l1tf mds swapgs
bogomips	: 6383.96
clflush size	: 64
cache_alignment	: 64
address sizes	: 36 bits physical, 48 bits virtual
power management:

processor	: 1
vendor_id	: GenuineIntel
cpu family	: 6
model		: 37
model name	: Intel(R) Core(TM) i5 CPU         650  @ 3.20GHz
stepping	: 5
microcode	: 0x7
cpu MHz		: 1422.365
cache size	: 4096 KB
physical id	: 0
siblings	: 4
core id		: 2
cpu cores	: 2
apicid		: 4
initial apicid	: 4
fpu		: yes
fpu_exception	: yes
cpuid level	: 11
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe syscall nx rdtscp lm constant_tsc arch_perfmon pebs bts rep_good nopl xtopology nonstop_tsc cpuid aperfmperf pni pclmulqdq dtes64 monitor ds_cpl vmx smx est tm2 ssse3 cx16 xtpr pdcm pcid sse4_1 sse4_2 popcnt aes lahf_lm pti ssbd ibrs ibpb stibp tpr_shadow vnmi flexpriority ept vpid dtherm ida arat flush_l1d
bugs		: cpu_meltdown spectre_v1 spectre_v2 spec_store_bypass l1tf mds swapgs
bogomips	: 6383.96
clflush size	: 64
cache_alignment	: 64
address sizes	: 36 bits physical, 48 bits virtual
power management:

processor	: 2
vendor_id	: GenuineIntel
cpu family	: 6
model		: 37
model name	: Intel(R) Core(TM) i5 CPU         650  @ 3.20GHz
stepping	: 5
microcode	: 0x7
cpu MHz		: 1389.448
cache size	: 4096 KB
physical id	: 0
siblings	: 4
core id		: 0
cpu cores	: 2
apicid		: 1
initial apicid	: 1
fpu		: yes
fpu_exception	: yes
cpuid level	: 11
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe syscall nx rdtscp lm constant_tsc arch_perfmon pebs bts rep_good nopl xtopology nonstop_tsc cpuid aperfmperf pni pclmulqdq dtes64 monitor ds_cpl vmx smx est tm2 ssse3 cx16 xtpr pdcm pcid sse4_1 sse4_2 popcnt aes lahf_lm pti ssbd ibrs ibpb stibp tpr_shadow vnmi flexpriority ept vpid dtherm ida arat flush_l1d
bugs		: cpu_meltdown spectre_v1 spectre_v2 spec_store_bypass l1tf mds swapgs
bogomips	: 6383.96
clflush size	: 64
cache_alignment	: 64
address sizes	: 36 bits physical, 48 bits virtual
power management:

processor	: 3
vendor_id	: GenuineIntel
cpu family	: 6
model		: 37
model name	: Intel(R) Core(TM) i5 CPU         650  @ 3.20GHz
stepping	: 5
microcode	: 0x7
cpu MHz		: 1416.331
cache size	: 4096 KB
physical id	: 0
siblings	: 4
core id		: 2
cpu cores	: 2
apicid		: 5
initial apicid	: 5
fpu		: yes
fpu_exception	: yes
cpuid level	: 11
wp		: yes
flags		: fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe syscall nx rdtscp lm constant_tsc arch_perfmon pebs bts rep_good nopl xtopology nonstop_tsc cpuid aperfmperf pni pclmulqdq dtes64 monitor ds_cpl vmx smx est tm2 ssse3 cx16 xtpr pdcm pcid sse4_1 sse4_2 popcnt aes lahf_lm pti ssbd ibrs ibpb stibp tpr_shadow vnmi flexpriority ept vpid dtherm ida arat flush_l1d
bugs		: cpu_meltdown spectre_v1 spectre_v2 spec_store_bypass l1tf mds swapgs
bogomips	: 6383.96
clflush size	: 64
cache_alignment	: 64
address sizes	: 36 bits physical, 48 bits virtual
power management:

dmitry@msi:~$ clang++-10 -flto -static -O3 -march=native  main-2.cpp -o main-2-final
dmitry@msi:~$ time ./main-2-final < bench.b 
real	0m16,788s
user	0m16,772s
sys	0m0,000s

dmitry@msi:~$ g++-9 -Os -static -flto main-2.cpp -o main-2-gcc9
dmitry@msi:~$ time ./main-2-gcc9 < bench.b 
real	0m19,499s
user	0m19,450s
sys	0m0,024s
dmitry@msi:~$ g++-9 --version
g++-9 (Debian 9.2.1-8) 9.2.1 20190909

 Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.
   Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.
   Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.
   Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.
   Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.
   Benchmark brainf*ck program
>++[<+++++++++++++>-]<[[>+>+<<-]>[<+>-]++++++++
[>++++++++<-]>.[-]<<>++++++++++[>++++++++++[>++
++++++++[>++++++++++[>++++++++++[>++++++++++[>+
+++++++++[-]<-]<-]<-]<-]<-]<-]<-]++++++++++.

#include <unistd.h>
#include <sys/mman.h>
#include <sys/stat.h>
#include <fcntl.h>

size_t file_size(int fd) {
  struct stat64 stat;
  fstat64(fd, &stat);
  return stat.st_size;
}


int main() {
  auto fd = open("1.json", O_RDONLY);
  auto size = file_size(fd);
  auto data = (const char *)mmap(nullptr, size, PROT_READ, MAP_PRIVATE|MAP_POPULATE, fd, 0);
  StringStream ss{data};
  Reader reader;
  CoordinateHandler handler;
  reader.Parse(ss, handler);
}