Author Topic: SALC Ubuntu 64 (Read 17147 times)

AIR · « **on:** December 15, 2019, 08:16:57 AM »

I reworked the FreeBasic submission, and ran it on my Ubuntu PI4:

Code: FreeBasic

' FreeBasic - 1mil3.bas
 
DIM SHARED a(1000001) AS INTEGER
 
function Reverse( byref source as string ) as string
    dim as integer first = 0, last = Len(source)-1
 
    while( first < last )
        Swap source[first], source[last]
        first += 1 : last -= 1
    wend
 
    return source
end function
 
sub mil()
    dim as string s,t,r
    dim as integer x,c
 
    FOR x = 1 TO 1000000
        c = (x - 1) MOD 26
        s &= CHR(c + 65)
        a(x) = x
        IF c = 25 THEN
            t &= s
            s = ""
            c = 0
        ENDIF
    NEXT
 
    r = Reverse(t)
 
    PRINT "r LEN: " & LEN(r)
    PRINT "Front: " & LEFT(r, 26)
    PRINT "Back:  " & RIGHT(r, 26)
    PRINT "UBVal: " & a(1000000)
end sub
 
 
mil()
 

riveraa@dpi:~/tmp$ timex ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.16user 0.02system 0:00.18elapsed 98%CPU (0avgtext+0avgdata 11596maxresident)k 0inputs+0outputs (0major+2623minor)pagefaults 0swaps

AIR.

EDIT: Cleaned up code.

John Spikowski · « **Reply #1 on:** December 15, 2019, 08:19:34 AM »

I need to build ScriptBasic on this Ubuntu 64 RPi 4B.

John Spikowski · « **Reply #2 on:** December 15, 2019, 08:47:47 AM »

I think a round 4 is in order but this time running on Ubuntu 64 on the RPi 4B 4GB.

John Spikowski · « **Reply #3 on:** December 15, 2019, 10:15:24 AM »

ScriptBasic (Ubuntu 64 RPi 4B 4GB)

Code: Script BASIC

' ScriptBasic - 1mil4.sb
 
OPEN  "t_file" FOR OUTPUT AS #1
 
s = ""
SPLITA STRING(1000001,"0") BY "" TO a
 
FOR x = 1 TO 1000000
  s &= CHR(((x - 1) % 26) + 65)
  a[x] = x
  IF LEN(s) = 26 THEN
    PRINT #1, s
    s = ""
  END IF
NEXT
CLOSE(1)
 
flen = FILELEN("t_file")
OPEN "t_file" FOR INPUT AS #1
t = INPUT(flen, 1)
CLOSE(1)
t = STRREVERSE(t)
 
PRINT "t LEN: ",LEN(t),"\n"
PRINT "Front: ",LEFT(t, 26),"\n"
PRINT "Back:  ",RIGHT(t, 26),"\n"
PRINT "UBVal: ",a[1000000],"\n"
 

ubuntu@rpi4b:~/sbrt/examples$ timex scriba 1mil4.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 6.60user 0.79system 0:07.42elapsed 99%CPU (0avgtext+0avgdata 277268maxresident)k 0inputs+1960outputs (0major+69241minor)pagefaults 0swaps ubuntu@rpi4b:~/sbrt/examples$

No big improvement with ScriptBasic under 64 bit on the RPi 4B. Everything built fine using the Linux dependency list.

John Spikowski · « **Reply #4 on:** December 16, 2019, 12:07:51 AM »

C (Ubuntu 64 RPi 4B 4GB)

Code: C

// C - 1mil4.c - AIR
 
#include <stdlib.h>
#include <stdio.h>
#include <glib.h>
#include <glib/gprintf.h>
 
int main(int argc, char **argv) {
        GString *s = g_string_new(NULL);
        GString *t = g_string_new(NULL);
        int a[1000001] = {0};
 
        for (int x = 0; x < 1000001; x++) {
                a[x] = x;
                g_string_append_c(s,(char)(x%26)+65);
                if (s->len == 26) {
                        g_string_append(t,g_strreverse(s->str));
                        g_string_assign(s,"");
                }
        }
 
        g_printf("r LEN: %d\n",t->len);
        g_printf("Front: %.*s\n", 26, t->str);
        g_printf("Back:  %s\n", t->str + t->len - 26);
        g_printf("UBVal: %d\n",a[1000000]);
 
        g_string_free (s,TRUE);
        g_string_free (t,TRUE);
}
 

ubuntu@rpi4b:~/salc/c$ gcc -O3 1mil4.c $(pkg-config --libs --cflags glib-2.0) -o 1mil4 1mil4.c: In function ‘main’: 1mil4.c:22:27: warning: format ‘%d’ expects argument of type ‘int’, but argument 2 has type ‘gsize’ {aka ‘long unsigned int’} [-Wformat=] 22 | g_printf("r LEN: %d\n",t->len); | ~^ ~~~~~~ | | | | int gsize {aka long unsigned int} | %ld ubuntu@rpi4b:~/salc/c$ ls -l 1mil4 -rwxr-xr-x 1 ubuntu ubuntu 13704 Dec 15 16:03 1mil4 ubuntu@rpi4b:~/salc/c$ timex ./1mil4 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.01user 0.01system 0:00.03elapsed 93%CPU (0avgtext+0avgdata 6576maxresident)k 0inputs+0outputs (0major+1352minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/c$

John Spikowski · « **Reply #5 on:** December 16, 2019, 12:22:58 AM »

Python3 (Ubuntu 64 RPi 4B 4GB)

Code: Python

# Python 3 - 1mil4.py - AIR
 
def main():
    t = []
    r =""
    a = [None] * 1000001
    b = bytearray(26)
    decode = bytearray.decode
    blah = range(1000001)
    append = list.append
 
    for x in blah:
        alpha = x % 26
        b[alpha] = alpha + 65
        a[x] = x
        if alpha == 25:
            append(t, decode(b[::-1]))
 
    r = ''.join(t)
 
    print("r LEN: {}".format(len(r)))
    print("Front: {}".format(r[:26]))
    print("Back:  {}".format(r[-26:]))
    print("UBVal: {}".format(a[1000000]))
 
if __name__ == "__main__":
    main()
 

ubuntu@rpi4b:~/salc/python-dev$ timex python3 1mil4.py r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.49user 0.06system 0:00.56elapsed 99%CPU (0avgtext+0avgdata 52408maxresident)k 0inputs+0outputs (0major+12086minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/python-dev$

John Spikowski · « **Reply #6 on:** December 16, 2019, 01:07:08 AM »

Ruby (Ubuntu 64 RPi 4B 4GB)

Code: Ruby

# Ruby - 1mil4.rb - AIR
 
a = [10000001]
s = ""
t = ""
 
 
(0..1000001).each do |x|
        a << x+1
        s << (x%26)+65
        if s.length == 26
                t << s.reverse
                s.clear
        end
end
 
puts "t LEN: #{t.length}"
puts "Front: #{t[0,26]}"
puts "Back:  #{t[-26,26]}"
puts "UBVal: #{a[1000000]}"
 

ubuntu@rpi4b:~/salc/ruby-dev$ timex ruby 1mil4.rb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.68user 0.08system 0:00.88elapsed 86%CPU (0avgtext+0avgdata 18092maxresident)k 2240inputs+0outputs (2major+3678minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/ruby-dev$

John Spikowski · « **Reply #7 on:** December 16, 2019, 01:26:14 AM »

Perl (Ubuntu 64 RPi 4B 4GB)

Code: Perl

# Perl - 1mil4.pl
 
my $s = "";
my $t = "";
my $a = [1000000];
 
for (my $x = 1; $x <= 1000000; $x++) {
  $s = $s . chr((($x - 1) % 26) + 65);
  $a[$x] = $x;
  if (length($s) == 26) {
    $t = $t . $s;
    $s = "";
  }
}
 
 
my $r = scalar reverse $t;
 
printf("r LEN: %d\n", length($r));
printf("Front: %s\n", substr($r, 0, 26));
printf("Back:  %s\n", substr($r, -26));
printf("UBVal: %d\n", $a[1000000]);
 

ubuntu@rpi4b:~/salc/perl-dev$ timex perl 1mil4.pl r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.85user 0.04system 0:00.90elapsed 99%CPU (0avgtext+0avgdata 38688maxresident)k 0inputs+0outputs (0major+8869minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/perl-dev$

John Spikowski · « **Reply #8 on:** December 16, 2019, 02:53:54 AM »

BaCon (Ubuntu 64 RPi 4B 4GB)

Code: Text

' BaCon - 1mil4.bac - AIR
 
OPTION PARSE FALSE
 
s$ = ""
t$ = ""
 
DECLARE a[1000001] TYPE NUMBER
DECLARE len TYPE size_t
DECLARE *stream TYPE FILE
 
stream = open_memstream(&t$,&len)
 
FOR x = 1 TO 1000000
  s$ = s$ & CHR$(MOD((x - 1), 26) + 65)
  a[x] = x
  IF LEN(s$) = 26 THEN
    fprintf(stream, "%s", s$)
    s$ = ""
  END IF
NEXT
CLOSE FILE stream
 
r$ = REVERSE$(t$)
FREE t$
PRINT "r LEN: ",len
PRINT "Front: ",LEFT$(r$, 26)
PRINT "Back:  ",RIGHT$(r$, 26)
PRINT "UBVal: ",a[1000000]
 

ubuntu@rpi4b:~/salc/bacon-dev$ bacon 1mil4.bac WARNING: 7 temporary files found! Do you want to delete them ([y]/n)? y Temporary files were deleted. Converting '1mil4.bac'... done, 31 lines were processed in 0.034 seconds. Compiling '1mil4.bac'... cc -c 1mil4.bac.c cc -o 1mil4 1mil4.bac.o -lbacon -L. -lm Done, program '1mil4' ready. ubuntu@rpi4b:~/salc/bacon-dev$ ls -l 1mil4 -rwxr-xr-x 1 ubuntu ubuntu 133856 Dec 15 21:37 1mil4 ubuntu@rpi4b:~/salc/bacon-dev$ timex ./1mil4 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.38user 0.01system 0:00.40elapsed 99%CPU (0avgtext+0avgdata 12096maxresident)k 0inputs+0outputs (0major+3059minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/bacon-dev$

John Spikowski · « **Reply #9 on:** December 16, 2019, 03:18:57 AM »

Swift (Ubuntu 64 RPi 4B 4GB)

Code: Text

// Swift 5.1.2 ARM 64- 1mil4.swift
 
var s = ""
var t = ""
var a = [Int](repeating: 0, count: 1000001)
 
for x in 1...1000000 {
  let c = (x - 1) % 26
  s.append(String(UnicodeScalar(UInt8(c + 65))))
  a[x] = x
  if c == 25 {
    t.append(String(s.reversed()))
    s = ""
  }
}
 
print("t LEN: ", t.count)
print("Front: \(t.prefix(26))")
print("Back:  \(t.suffix(26))")
print("UBVal: ", a[1000000])
 

ubuntu@rpi4b:~/salc/swift-dev$ swiftc -O 1mil4.swift ubuntu@rpi4b:~/salc/swift-dev$ ls -l main -rwxr-xr-x 1 ubuntu ubuntu 74600 Dec 15 19:13 main ubuntu@rpi4b:~/salc/swift-dev$ timex ./main t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.65user 0.02system 0:00.69elapsed 98%CPU (0avgtext+0avgdata 16392maxresident)k 0inputs+0outputs (0major+2811minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/swift-dev$

Major improvement for Swift on ARM 64. My guess is that the reason Swift runs like a pig on Rasbian is that Swift depends on the OS compilers rather than using the ones included with the language build like other platforms.

John Spikowski · « **Reply #10 on:** December 16, 2019, 05:04:24 AM »

PHP (Ubuntu 64 RPi 4B 4GB)

Code: PHP

<?php
 
# PHP -1mil4.php
 
$s = "";
$t = "";
$a = array();
 
for ($x = 1; $x <= 1000000; $x++) {
  $s .= chr((($x - 1) % 26) + 65);
  $a[$x] = $x;
  if(strlen($s) == 26) {
    $t .= $s;
    $s = "";
  } 
}
 
$r = strrev($t);
 
echo "r LEN: ", strlen($r), "\n";
echo "Front: ", substr($r, 0, 26), "\n";
echo "Back:  ", substr($r, -26), "\n";
echo "UBVal: ", $a[1000000],"\n";
 
?>
 

ubuntu@rpi4b:~/salc/php-dev$ timex php 1mil4.php r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.31user 0.10system 0:00.41elapsed 99%CPU (0avgtext+0avgdata 48284maxresident)k 0inputs+0outputs (0major+16200minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/php-dev$

I think many overlook PHP as a fast console scripting language.

AIR · « **Reply #11 on:** December 16, 2019, 05:29:05 AM »

Quote from: John Spikowski on December 16, 2019, 02:53:54 AM

BaCon (Ubuntu 64 RPi 4B 4GB)

Compiler error: Description: file '1mil4.bac' line 18: fprintf(stream,s$) Cause: passing argument 2 of 'open_memstream' from incompatible pointer type [-Wincompatible-pointer-types] ubuntu@rpi4b:~/salc/bacon-dev$

Make the following TWO changes (Ubuntu's gcc is more strict than Rasbian's):

Code: C

DECLARE len TYPE size_t

Code: C

fprintf(stream, "%s", s$)

AIR.

John Spikowski · « **Reply #12 on:** December 16, 2019, 05:40:21 AM »

Thanks!

BaCon post updated.

John Spikowski · « **Reply #13 on:** December 17, 2019, 03:16:42 AM »

Java (Ubuntu 64 RPi 4B 4GB)

Code: Java

// Java - 1mil4.java
 
class onemil4
  {
  public static void main(String args[])
  {
  StringBuilder s = new StringBuilder(); 
  StringBuilder t = new StringBuilder(); 
  int c = 0;
  int[] a = new int[1000001];
 
  for (int x = 1; x <= 1000000; x++) {
    c = ((x - 1) % 26) + 65;          
    s.append((char) c);
    a[x] = x;
    if(s.length() == 26) {
      t.append(s);
      s.delete(0, s.length());
    }
  }
 
  StringBuilder r = new StringBuilder(); 
  r.append(t);
  r = r.reverse();
  
  System.out.println("r LEN: " + r.length());
  System.out.println("Front: " + r.substring(0, 26));
  System.out.println("Back:  " + r.substring(r.length() - 26));  
  System.out.println("UBVal: " + a[1000000]);
  }
}
 

ubuntu@rpi4b:~/salc/java-dev$ javac 1mil4.java ubuntu@rpi4b:~/salc/java-dev$ timex java onemil4 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.83user 0.11system 0:00.68elapsed 137%CPU (0avgtext+0avgdata 38428maxresident)k 0inputs+64outputs (0major+6134minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/java-dev$

AIR · « **Reply #14 on:** December 17, 2019, 03:31:01 AM »

I think you should split the 64bit posts into a separate thread...so they and the 32bit posts are easier to find in the future.

News:

Author Topic: SALC Ubuntu 64 (Read 17147 times)

AIR

SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

AIR

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

John Spikowski

Re: SALC Ubuntu 64

AIR

Re: SALC Ubuntu 64