Print Page - SALC Rasbian 32

Raspberry BASIC => Programming Challenges => Topic started by: John Spikowski on November 28, 2019, 05:03:24 AM

Title: SALC Rasbian 32
Post by: John Spikowski on November 28, 2019, 05:03:24 AM

I 'm going to take this challenge one more round and add a string and array to the mix.

FYI: This site is a forum and not my blog. Without contributing members it will soon become dormant. It only takes a minute to register. It's okay to be a member of multiple forums and I'm pretty sure the RPi moderators won't ban you if you appear here.

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 28, 2019, 07:28:13 AM

ScriptBasic

The array part takes 4 seconds of the total time.,

Code: Script BASIC

' ScriptBasic - 1mil3.sb
 
s = ""
t = ""
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
    t &= s
    s = ""
  END IF
NEXT
r = STRREVERSE(t)
PRINT "r LEN: ",LEN(r),"\n"
PRINT "Front: ",LEFT(r, 26),"\n"
PRINT "Back:  ",RIGHT(r, 26),"\n"
PRINT "UBVal: ",a[1000000],"\n"
 

pi@RPi4B:~/sbrt/examples $ /usr/bin/time scriba 1mil3.sb r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 15.64user 34.88system 0:50.55elapsed 99%CPU (0avgtext+0avgdata 172504maxresident)k 536inputs+0outputs (2major+4122825minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 28, 2019, 07:11:56 PM

8th (Jalih submission)

Code: Text

: plus-minus
  n:1+
  swap
  n:1-
  swap
  2dup n:= if
    "Middle\n" .
  then ;
 
: app:main
  1000000 0
  ' plus-minus 1000000 times
  "Plus: %d\nMinus: %d\n" s:strfmt .
  bye ;
 

pi@RPi4B:~/8th-dev/examples $ /usr/bin/time ./mil Middle Plus: 1000000 Minus: 0 0.41user 0.03system 0:00.45elapsed 96%CPU (0avgtext+0avgdata 6944maxresident)k 0inputs+0outputs (0major+340minor)pagefaults 0swaps pi@RPi4B:~/8th-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 28, 2019, 09:00:08 PM

BaCon

Code: Text

' BaCon - 1mil3.bac
 
s$ = ""
t$ = ""
DECLARE a[1000001] TYPE NUMBER
 
FOR x = 1 TO 1000000
  s$ = s$ & CHR$(MOD((x - 1), 26) + 65)
  a[x] = x
  IF LEN(s$) = 26 THEN
    t$ = t$ & s$
    s$ = ""
  END IF
NEXT
r$ = REVERSE$(t$)
PRINT "r LEN: ",LEN(r$)
PRINT "Front: ",LEFT$(r$, 26)
PRINT "Back:  ",RIGHT$(r$, 26)
PRINT "UBVal: ",a[1000000]
 

pi@RPi4B:~/bacon-dev/examples $ bacon 1mil3.bac Converting '1mil3.bac'... done, 21 lines were processed in 0.053 seconds. Compiling '1mil3.bac'... cc -c 1mil3.bac.c cc -o 1mil3 1mil3.bac.o -lbacon -L. -lm Done, program '1mil3' ready. pi@RPi4B:~/bacon-dev/examples $ ls -l 1mil3 -rwxr-xr-x 1 pi pi 109628 Nov 29 20:32 1mil3 pi@RPi4B:~/bacon-dev/examples $ /usr/bin/time ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 12.99user 0.00system 0:13.02elapsed 99%CPU (0avgtext+0avgdata 9356maxresident)k 0inputs+0outputs (0major+2157minor)pagefaults 0swaps pi@RPi4B:~/bacon-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 29, 2019, 12:43:11 AM

FreeBasic

Code: FreeBasic

' FreeBasic - 1mil3.bas
 
DIM s AS STRING
DIM t AS STRING
DIM r AS STRING
DIM SHARED a(1000001) AS INTEGER
DIM x AS INTEGER
 
FOR x = 1 TO 1000000
  s &= CHR(((x - 1) MOD 26) + 65)
  a(x) += x
  IF LEN(s) = 26 THEN
    t &= s
    s = ""
  ENDIF
NEXT
 
FOR x = LEN(t) TO 1 STEP -1
  r &= MID(t,x,1)
NEXT
 
PRINT "r LEN: " & LEN(r)
PRINT "Front: " & LEFT(r, 26)
PRINT "Back:  " & RIGHT(r, 26)
PRINT "UBVal: " & a(1000000)
 

pi@RPi4B:~/freebasic-dev/examples $ fbc 1mil3.bas pi@RPi4B:~/freebasic-dev/examples $ ls -l 1mil3 -rwxr-xr-x 1 pi pi 30640 Nov 28 16:40 1mil3 pi@RPi4B:~/freebasic-dev/examples $ /usr/bin/time ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.53user 0.05system 0:00.60elapsed 96%CPU (0avgtext+0avgdata 7848maxresident)k 0inputs+0outputs (0major+2623minor)pagefaults 0swaps pi@RPi4B:~/freebasic-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 29, 2019, 02:24:05 AM

PHP Update

Code: PHP

<?php
 
# PHP -1mil3-2.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";
 
?>
 

pi@RPi4B:~/php-dev/examples $ timex php 1mil3-2.php r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.43user 0.12system 0:00.57elapsed 98%CPU (0avgtext+0avgdata 38820maxresident)k 0inputs+0outputs (0major+9720minor)pagefaults 0swaps pi@RPi4B:~/php-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 29, 2019, 11:45:38 PM

Python 3

Code: Python

# Python 3 - 1mil3.py
 
s = ""
t = ""
a = [None] * 1000001
 
for x in range(1000001):
  s += chr(((x) % 26) + 65)
  a[x] = x
  if len(s) == 26:
    t += s
    s = ""
 
r = "".join(reversed(t))
 
print("r LEN: {}".format(len(r)))
print("Front: {}".format(r[:26]))
print("Back:  {}".format(r[-26:]))
print("UBVal: {}".format(a[1000000]))
 

pi@RPi4B:~/python-dev/examples $ /usr/bin/time python3 1mil3,py r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 1.87user 0.09system 0:01.97elapsed 99%CPU (0avgtext+0avgdata 32660maxresident)k 0inputs+0outputs (0major+7192minor)pagefaults 0swaps pi@RPi4B:~/python-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 30, 2019, 07:42:29 PM

The Swift round two post has been updated. The compiler now correctly prints middle.

The swift-5.1.2_armv7.tgz file is 206 MB. I will have to upload it to the server and provide a link to download. This build is the current release with the latest updates as of build time.

AIR submitted an improvement to the Python script to not require numpy.

Title: Re: SALC Rasbian 32
Post by: John Spikowski on November 30, 2019, 09:26:43 PM

8th (Jalih submission)

Code: Text

1000000 constant LIMIT
 
a:new 0 a:push var, a
"" var, s
"" var, t
 
: rev  \ s -- s
  b:new b:rev >s ;
 
: iterate
  s @ over n:1- 26 n:mod 65 n:+ s:+ s !
  s @ s:len 26 n:< not if
    t @ swap s:+ t !
    "" s !
  else
    drop
  then
  a:push ;
 
: app:main
  a @ ' iterate 1 LIMIT loop
  t @ rev 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 $ /usr/bin/time ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 10.33user 30.38system 0:40.75elapsed 99%CPU (0avgtext+0avgdata 61464maxresident)k 0inputs+0outputs (0major+3677030minor)pagefaults 0swaps pi@RPi4B:~/8th-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 01, 2019, 07:28:32 PM

C (AIR submission)

Code: C

// C - 1mil3.c - AIR
 
#define _GNU_SOURCE
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#define join(write_to,  ...) {           \
    char *tmp_string_for_extend = (write_to); \
    asprintf(&(write_to), __VA_ARGS__);       \
    free(tmp_string_for_extend);              \
}
 
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};
    int i;
    char *s=NULL,*t=NULL;
 
    join(s,"");
    join(t,"");
 
    for (int x = 0; x < 1000001; x++) {
        a[x] = x;
 
        join(s,"%s%c",s,(x%26)+65);
 
        if (strlen(s) == 26) {
            join(t,"%s%s",t,s);
            join(s,"");
        }
    }
 
    free(s);
    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]);
 
}
 

pi@RPi4B:~/c-dev/examples $ gcc -O3 1mil3.c -o 1mil3 pi@RPi4B:~/c-dev/examples $ ls -l 1mil3 -rwxr-xr-x 1 pi pi 8140 Dec 1 11:23 1mil3 pi@RPi4B:~/c-dev/examples $ /usr/bin/time ./1mil3 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 45.56user 63.56system 1:49.17elapsed 99%CPU (0avgtext+0avgdata 23956maxresident)k 0inputs+0outputs (0major+7535448minor)pagefaults 0swaps pi@RPi4B:~/c-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 01, 2019, 09:45:22 PM

Swift 5.1.2

Looking for a faster string reverse.

Code: Text

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

with string reverse
pi@RPi4B:~/swift-dev/examples $ /usr/bin/time ./main r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 100000 322.51user 0.07system 5:22.70elapsed 99%CPU (0avgtext+0avgdata 13836maxresident)k 0inputs+0outputs (0major+3470minor)pagefaults 0swaps pi@RPi4B:~/swift-dev/examples $

without string reverse
pi@RPi4B:~/swift-dev/examples $ /usr/bin/time ./main r LEN: 999986 Front: ABCDEFGHIJKLMNOPQRSTUVWXYZ Back: ABCDEFGHIJKLMNOPQRSTUVWXYZ UBVal: 100000 36.12user 0.04system 0:36.17elapsed 99%CPU (0avgtext+0avgdata 12800maxresident)k 0inputs+0outputs (0major+2925minor)pagefaults 0swaps pi@RPi4B:~/swift-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 02, 2019, 12:50:07 AM

GO Update (AIR submission)

Code: Go

// GO - 1mil3-2.go - AIR
 
package main
 
import (
    "fmt"
    "strings"
)
 
// Reverse returns its argument string reversed rune-wise left to right.
// From: https://github.com/golang/example/blob/master/stringutil/reverse.go
func Reverse(s string) string {
    r := []rune(s)
    for i, j := 0, len(r)-1; i < len(r)/2; i, j = i+1, j-1 {
        r[i], r[j] = r[j], r[i]
    }
    return string(r)
}
 
func main() {
    var s strings.Builder
    var r = ""
    var t strings.Builder
    var a [1000001]int
 
    for x := 0; x < 1000001; x++ {
        a[x] = x
 
        s.WriteByte(byte((x % 26) + 65))
 
        if s.Len() == 26 {
            t.WriteString(s.String())
            s.Reset()
        }
    }
 
    r = Reverse(t.String())
 
    fmt.Println("r LEN: ", len(r))
    fmt.Println("Front: ", r[0:26])
    fmt.Println("Back:  ", r[len(r)-26:])
    fmt.Println("UBVal: ", a[1000000])
 
}
 

pi@RPi4B:~/go-dev/examples $ go build 1mil3-2.go pi@RPi4B:~/go-dev/examples $ ls -l 1mil3-2 -rwxr-xr-x 1 pi pi 1763559 Dec 4 18:33 1mil3-2 pi@RPi4B:~/go-dev/examples $ /usr/bin/time ./1mil3-2 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.10user 0.08system 0:00.16elapsed 112%CPU (0avgtext+0avgdata 16868maxresident)k 0inputs+0outputs (0major+4032minor)pagefaults 0swaps pi@RPi4B:~/go-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 02, 2019, 05:26:34 AM

Nim (AIR submission)

Code: Text

proc reverse*(str: string): string =
  result = ""
  for index in countdown(str.high, 0):
    result.add(str[index])
 
type
    milarray = array[1000001, int]
 
var
    s = ""
    t = ""
    r:string
    a:milarray
 
for x in 0..1000000:
    a[x] = x
 
    s &= chr((x mod 26) + 65)
 
    if s.len == 26:
        t &= s
        s = ""
 
 
r = t.reverse
echo "r Len: ",r.len
echo "Front: ",r[0..25]
echo "Back:  ",r[r.len-26..r.len-1]
echo "UBVal: ",a[1000000]
 

pi@RPi4B:~/nim-dev/examples $ nim c -d:release onemil3.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: onemil3 [Processing] Hint: [Link] Hint: operation successful (12410 lines compiled; 0.566 sec total; 10.754MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/nim-dev/examples $ ls -l onemil3 -rwxr-xr-x 1 pi pi 57548 Dec 1 21:21 onemil3 pi@RPi4B:~/nim-dev/examples $ /usr/bin/time ./onemil3 r Len: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.06user 0.05system 0:00.12elapsed 99%CPU (0avgtext+0avgdata 10048maxresident)k 0inputs+0outputs (0major+2294minor)pagefaults 0swaps pi@RPi4B:~/nim-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 03, 2019, 01:42:35 AM

JavaScript

Code: Javascript

// JavaScript - 1mil3.js
 
function reverseString(str){
    let strn ="";
    for(let char of str){
        strn = char + strn;
    }
    return strn;
}
 
var s = "";
var t = "";
var a = [1000001];
 
for (x = 1; x <= 1000000; x++) {
  s += String.fromCharCode(((x - 1) % 26) + 65);
  a[x] = x;
  if(s.length == 26) {
        t += s;
        s = "";
  }
}
 
r = reverseString(t);
 
console.log("r LEN: " + r.length);
console.log("Front: " + r.substring(0, 26));
console.log("Back:  " + r.substring(-0, 26));
console.log("UBVal: " + a[1000000]);
 

pi@RPi4B:~/javascript-dev/examples $ /usr/bin/time node 1mil3.js r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 2.50user 0.27system 0:03.13elapsed 88%CPU (0avgtext+0avgdata 78340maxresident)k 38664inputs+0outputs (153major+19367minor)pagefaults 0swaps pi@RPi4B:~/javascript-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 03, 2019, 05:01:29 AM

JADE (AIR submission)

Code: C++

#include <jade.hpp>
 
MAIN
    STRING s,t,r;
    ARRAY<int> a;
 
    FOR( VAR x = 0 TO x<1000001 STEP x++ ) DO
        a.push_back(x);
        s += (CHAR)(x%26)+65;
 
        IF ( LEN(s) == 26 ) THEN
            t += s;
            s = "";
        END
    END
 
    r = REVERSE$(t);
 
    PRINT("r LEN: ",LEN(t));
    PRINT("Front: ", LEFT$(r,26));
    PRINT("Back:  ", RIGHT$(r,26));
    PRINT("UBVal: ",a[1000000]);
END
 

pi@RPi4B:~/jade-dev/examples $ g++ -O3 -std=c++11 mil.cpp -ljade -o mil pi@RPi4B:~/jade-dev/examples $ /usr/bin/time ./mil r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.08user 0.04system 0:00.12elapsed 98%CPU (0avgtext+0avgdata 9012maxresident)k 0inputs+0outputs (0major+3762minor)pagefaults 0swaps pi@RPi4B:~/jade-dev/examples $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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 $

Title: Re: SALC Rasbian 32
Post by: John Spikowski 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

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 11, 2019, 06:49:05 PM

Current String / Array language challenge results.

Title: Re: SALC Rasbian 32
Post by: AIR 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.

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 15, 2019, 01:26:12 AM

Looks like 32 bit is hosed. I wonder how Swift would run on a non-RPI in 32 bit.

Title: Re: SALC Rasbian 32
Post by: AIR on December 15, 2019, 01:55:04 AM

I'm wondering if it's the build flags associated with armf....

I ran the glib submission, and it is truly smoking in 64 bit:

riveraa@dpi:~/Projects/glib$ timex ./mil64 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.02user 0.01system 0:00.04elapsed 100%CPU (0avgtext+0avgdata 6512maxresident)k 0inputs+0outputs (0major+1332minor)pagefaults 0swaps

AIR.

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 15, 2019, 02:19:03 AM

I still have a couple 256 GB SD cards I haven't used. Where can I get the 64 bit OS you used for the RPi 4B?

Found it.

https://ubuntu.com/download/raspberry-pi

Title: Re: SALC Rasbian 32
Post by: John Spikowski on December 15, 2019, 06:37:39 AM

This is running the string / array language challenge on my Lenovo laptop running Ubuntu 19.10. A lot better than the 50 seconds I started off with.

ubuntu@ubuntu:~/sbrt/examples$ timex scriba 1mil3.sb t LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 2.12user 0.13system 0:02.26elapsed 99%CPU (0avgtext+0avgdata 277936maxresident)k 408inputs+2008outputs (3major+69233minor)pagefaults 0swaps ubuntu@ubuntu:~/sbrt/examples$