Author Topic: SALC Rasbian 32 (Read 18579 times)

John Spikowski · « **Reply #15 on:** December 03, 2019, 07:35:46 PM »

C Update (AIR submission)

Code: C

// C Update - 1mil3.c - AIR
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
char *strrev(char *str)
{
    if (!str || ! *str)
        return str;
 
    int i = strlen(str) - 1, j = 0;
 
    char ch;
    while (i > j) {
        ch = str[i];
        str[i] = str[j];
        str[j] = ch;
        i--;
        j++;
    }
    return str;
}
 
 
int main() {
    int a[1000001] = {0};
    char *t=NULL;
    char tmp[2] = {0};
    char s[27] = {0};
    FILE *t_stream;
    size_t len;
 
    t_stream = open_memstream(&t, &len);
 
    for (int x = 0; x < 1000001; x++) {
        a[x] = x;
        tmp[0] = (char)(x%26)+65;
 
        strncat(s,tmp,2);
 
        if (strlen(s) == 26) {
            fprintf(t_stream, "%s",s);
            s[0] = '\0';
        }
 
    }
 
    fclose(t_stream);
 
    strrev(t);
 
    printf("r LEN: %lu\n",strlen(t));
    printf("Front: %.*s\n", 26, t);
    printf("Back:  %s\n", t + strlen(t) - 26);
    printf("UBVal: %d\n",a[1000000]);
 
    free(t);
 
}
 

pi@RPi4B:~/c-dev/examples $ gcc -O3 1mil3.2.c -o 1mil3.2 pi@RPi4B:~/c-dev/examples $ ls -l 1mil3.2 -rwxr-xr-x 1 pi pi 8296 Dec 3 11:31 1mil3.2 pi@RPi4B:~/c-dev/examples $ /usr/bin/time ./1mil3.2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.14user 0.02system 0:00.18elapsed 97%CPU (0avgtext+0avgdata 5888maxresident)k 0inputs+0outputs (0major+1565minor)pagefaults 0swaps pi@RPi4B:~/c-dev/examples $

John Spikowski · « **Reply #16 on:** December 04, 2019, 01:29:49 AM »

Perl

Code: Perl

# Perl - 1mil3.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]);
 

pi@RPi4B:~/perl-dev/examples $ /usr/bin/time perl 1mil3.pl r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 1.13user 0.07system 0:01.22elapsed 99%CPU (0avgtext+0avgdata 33636maxresident)k 0inputs+0outputs (0major+7705minor)pagefaults 0swaps pi@RPi4B:~/perl-dev/examples $

John Spikowski · « **Reply #17 on:** December 04, 2019, 06:23:02 AM »

Java

Code: Java

// Java - 1mil3.java
 
class onemil3
  {
  public static void main(String args[])
  {
  String s = "";
  String t = "";
  int c = 0;
  int[] a = new int[1000001];
 
  for (int x = 1; x <= 1000000; x++) {
    c = ((x - 1) % 26) + 65;          
    s = s + (char) c;
    a[x] = x;
    if(s.length() == 26) {
      t = t + s;
      s = "";
    }
  }
 
  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]);
  }
}
 

pi@RPi4B:~/java-dev/examples $ /usr/bin/time java onemil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 43.79user 2.03system 0:34.78elapsed 131%CPU (0avgtext+0avgdata 144432maxresident)k 0inputs+96outputs (0major+33910minor)pagefaults 0swaps pi@RPi4B:~/java-dev/examples $

This version is using the StringBuilder class rather than adding a character or alphabet string to the result string. Night and day.

Code: Java

// Java - 1mil3.java
 
class onemil3
  {
  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]);
  }
}
 

pi@RPi4B:~/java-dev/examples $ javac 1mil3.java pi@RPi4B:~/java-dev/examples $ /usr/bin/time java onemil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.49user 0.14system 0:00.53elapsed 119%CPU (0avgtext+0avgdata 31948maxresident)k 0inputs+64outputs (0major+5024minor)pagefaults 0swaps pi@RPi4B:~/java-dev/examples $

John Spikowski · « **Reply #18 on:** December 07, 2019, 03:06:32 AM »

I was curious if I expanded out the expression to concatenate strings in ScriptBasic would it help? NOT and good to know for future use.

Example

Was: t &= s

Changed To: t = t & s

&= seems to be ScriptBasic's StringBuilder function.

Code: Script BASIC

' ScriptBasic - 1mil.sb
 
s = ""
t = ""
SPLITA STRING(1000001,"0") BY "" TO a
 
FOR x = 1 TO 1000000
  s = s & CHR(((x - 1) % 26) + 65)
  a[x] = x
  IF LEN(s) = 26 THEN
    t = t & s
    s = ""
  END IF
NEXT
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"
 

pi@RPi4B:~/sbrt/examples $ timex scriba 1mil3.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 127.51user 35.17system 2:42.93elapsed 99%CPU (0avgtext+0avgdata 171488maxresident)k 0inputs+0outputs (0major+4122875minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

John Spikowski · « **Reply #19 on:** December 07, 2019, 08:44:32 PM »

BaCon Update (AIR submission)

Code: Text

' BaCon - 1mil3-2.bac - AIR
 
OPTION PARSE FALSE
 
s$ = ""
t$ = ""
 
DECLARE a[1000001] TYPE NUMBER
DECLARE len TYPE uint
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$ = ""
  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]
 

pi@RPi4B:~/bacon-dev/examples $ bacon 1mil3-2.bac Converting '1mil3-2.bac'... done, 30 lines were processed in 0.064 seconds. Compiling '1mil3-2.bac'... cc -c 1mil3-2.bac.c cc -o 1mil3-2 1mil3-2.bac.o -lbacon -L. -lm Done, program '1mil3-2' ready. pi@RPi4B:~/bacon-dev/examples $ ls -l 1mil3-2 -rwxr-xr-x 1 pi pi 114748 Dec 7 12:40 1mil3-2 pi@RPi4B:~/bacon-dev/examples $ timex ./1mil3-2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.48user 0.03system 0:00.51elapsed 99%CPU (0avgtext+0avgdata 8012maxresident)k 0inputs+0outputs (0major+2068minor)pagefaults 0swaps pi@RPi4B:~/bacon-dev/examples $

John Spikowski · « **Reply #20 on:** December 08, 2019, 06:02:34 AM »

ScriptBasic Update

Code: Script BASIC

' ScriptBasic - 1milsf.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"
 

pi@RPi4B:~/sbrt/examples $ timex scriba 1milsf.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 7.03user 0.84system 0:07.89elapsed 99%CPU (0avgtext+0avgdata 171504maxresident)k 0inputs+1976outputs (0major+43080minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

John Spikowski · « **Reply #21 on:** December 08, 2019, 10:46:40 PM »

Python3 Update (AIR submission)

Code: Python

# Python 3 - 1mil3-2.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()
 

pi@RPi4B:~/python-dev/examples $ timex python3 1mil3-2,py r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.68user 0.08system 0:00.78elapsed 99%CPU (0avgtext+0avgdata 29952maxresident)k 0inputs+0outputs (0major+6541minor)pagefaults 0swaps pi@RPi4B:~/python-dev/examples $

John Spikowski · « **Reply #22 on:** December 09, 2019, 07:26:17 PM »

Ruby (AIR submission)

Code: Ruby

# Ruby - 1mil3.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]}"
 

pi@RPi4B:~/ruby-dev/examples $ timex ruby 1mil3.rb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.98user 0.04system 0:01.18elapsed 86%CPU (0avgtext+0avgdata 12024maxresident)k 7168inputs+0outputs (16major+2164minor)pagefaults 0swaps pi@RPi4B:~/ruby-dev/examples $

John Spikowski · « **Reply #23 on:** December 09, 2019, 11:12:38 PM »

C Update (AIR submission)

Code: C

#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);
}
 

pi@RPi4B:~/c-dev/examples $ gcc -O3 1mil3-3.c $(pkg-config --libs --cflags glib-2.0) -o 1mil3-3 pi@RPi4B:~/c-dev/examples $ ls -l 1mil3-3 -rwxr-xr-x 1 pi pi 8308 Dec 9 15:05 1mil3-3 pi@RPi4B:~/c-dev/examples $ timex ./1mil3-3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.03user 0.02system 0:00.07elapsed 95%CPU (0avgtext+0avgdata 6384maxresident)k 0inputs+0outputs (0major+1336minor)pagefaults 0swaps pi@RPi4B:~/c-dev/examples $

John Spikowski · « **Reply #24 on:** December 10, 2019, 02:18:47 AM »

Rust (AIR submission)

Code: Text

// Rust - 1mil3 - AIR
 
fn main() {
    let mut s = "".to_string();
    let mut t = "".to_string();
    let mut a = [0;1000001];
 
    for x in 0..1000001 {
        a[x] = x;
        let b   = ( x%26 ) as u8;
        let c = ( b+65 ) as char;
        s.push( c );
        if s.len() == 26 {
            let reversed: String = s.chars().rev().collect();
            t.push_str( &reversed );
            s.clear();
        }
    }
    println!( "r LEN: {}",  t.len() );
    println!( "Front: {}",  &t[..26] );
    println!( "Back:  {}",  &t[t.len()-26..]);
    println!( "UBVal: {}",  a[1000000] );
 
}
 

-rwxr-xr-x 1 pi pi 2582500 Dec 9 17:47 1mil3
pi@RPi4B:~/rust-dev/examples $ timex ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.10user 0.02system 0:00.12elapsed 96%CPU (0avgtext+0avgdata 6336maxresident)k 0inputs+0outputs (0major+1392minor)pagefaults 0swaps pi@RPi4B:~/rust-dev/examples $

John Spikowski · « **Reply #25 on:** December 10, 2019, 06:38:31 AM »

Swift Update (AIR submission)

Code: Text

// Swift 5.1.2 - 1mil3-3.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[100000])
 

pi@RPi4B:~/swift-dev/examples $ swiftc -O 1mil3-3.swift pi@RPi4B:~/swift-dev/examples $ ls -l main -rwxr-xr-x 1 pi pi 29316 Dec 9 22:37 main pi@RPi4B:~/swift-dev/examples $ timex ./main t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 100000 23.26user 0.03system 0:23.31elapsed 99%CPU (0avgtext+0avgdata 12012maxresident)k 0inputs+0outputs (0major+1890minor)pagefaults 0swaps pi@RPi4B:~/swift-dev/examples $

John Spikowski · « **Reply #26 on:** December 10, 2019, 06:49:19 AM »

Free Pascal (AIR submission)

Code: Pascal

// Free Pascal -1mil3 - AIR
 
program mil;
 
Uses StrUtils;
 
var
    s:AnsiString;
    t:AnsiString;
    c:AnsiChar;
    a:array[0..1000001] of int32;
    x:int32;
begin
    s := '';
    t := '';
    for x := 0 to 1000001 do
    begin
        c :=  chr( (x mod 26)+65 );
        a[x] := x;
        s += c;
        if Length(s) = 26 then
        begin
            t += ReverseString(s);
            s := '';
        end;
    end;
 
    writeln( 'r len: ', Length(t) );
    writeln( 'Front: ', LeftStr(t,26) );
    writeln( 'Back:  ', RightStr(t,26) );
    writeln( 'UBVal: ', a[1000000]);
end.
 

pi@RPi4B:~/freepascal-dev/examples $ ls -l total 80 -rwxr-xr-x 1 pi pi 78352 Dec 9 20:31 1mil3 pi@RPi4B:~/freepascal-dev/examples $ timex ./1mil3 r len: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.20user 0.02system 0:00.23elapsed 99%CPU (0avgtext+0avgdata 5604maxresident)k 8inputs+0outputs (0major+1431minor)pagefaults 0swaps pi@RPi4B:~/freepascal-dev/examples $

John Spikowski · « **Reply #27 on:** December 11, 2019, 06:29:50 PM »

8th Update (Jalih submission)

Code: Text

1000000 constant LIMIT
 
a:new 0 a:push var, a
0 b:new true b:writable var, s
0 b:new true b:writable var, t
 
 
: iterate
  s @ "" 2 pick n:1- 26 n:mod 65 n:+ s:+ b:append
  b:len 26 n:< not if
    t @ swap b:append drop
    0 b:new true b:writable s !
  else
    drop
  then
  a:push ;
 
: app:main
  a @ ' iterate 1 LIMIT loop
  t @ b:rev >s s:len "r LEN: %d\n" s:strfmt .
  dup 26 s:lsub "Front: %s\n" s:strfmt .
  26 s:rsub "Back:  %s\n" s:strfmt .
  LIMIT a:@ nip "UBVal: %d\n" s:strfmt .
  bye ; 
 

pi@RPi4B:~/8th-dev/examples $ timex ./1mil3-2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 2.09user 0.16system 0:02.28elapsed 99%CPU (0avgtext+0avgdata 53140maxresident)k 0inputs+0outputs (0major+12124minor)pagefaults 0swaps pi@RPi4B:~/8th-dev/examples $

I thought Rust executables were huge. 8th takes the lead in this category.

-rwxr-xr-x 1 pi pi 7344807 Dec 9 21:02 1mil3-2

John Spikowski · « **Reply #28 on:** December 11, 2019, 06:49:05 PM »

Current String / Array language challenge results.

AIR · « **Reply #29 on:** December 15, 2019, 01:22:50 AM »

I installed Ubuntu Server 19.10.1, which is 64bit, on my other RasPi 4b (4GB).

Interestingly, the arch is "aarch64".

None of the 32bit RasPi submissions run on it though.

One of the things I wanted to see is how the Swift submission would run on it.

Here's what I got:

riveraa@dpi:~/Projects/Swift/1mil3$ file ./mil ./mil: ELF 64-bit LSB shared object, ARM aarch64, version 1 (SYSV), dynamically linked, interpreter /lib/ld-linux-aarch64.so.1, for GNU/Linux 3.7.0, not stripped riveraa@dpi:~/Projects/Swift/1mil3$ timex ./mil r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 100000 0.66user 0.02system 0:00.68elapsed 99%CPU (0avgtext+0avgdata 16292maxresident)k 0inputs+0outputs (0major+2795minor)pagefaults 0swaps riveraa@dpi:~/Projects/Swift/1mil3$ uname -a Linux dpi 5.3.0-1014-raspi2 #16-Ubuntu SMP Tue Nov 26 11:18:23 UTC 2019 aarch64 aarch64 aarch64 GNU/Linux riveraa@dpi:~/Projects/Swift/1mil3$

Food for thought...

AIR.

News:

Author Topic: SALC Rasbian 32 (Read 18579 times)

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

John Spikowski

Re: SALC Rasbian 32

AIR

Re: SALC Rasbian 32