Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - John Spikowski

Pages: 1 ... 6 7 [8] 9 10 ... 16

106

Programming Challenges / Re: SALC Ubuntu 64

« on: December 21, 2019, 04:35:48 AM »

8th (Ubuntu 64 RPi 4B 4GB)

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 ; 
 

ubuntu@rpi4b:~/salc/8th-dev$ timex ./1mil4 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 1.00user 0.10system 0:01.12elapsed 98%CPU (0avgtext+0avgdata 66508maxresident)k 0inputs+0outputs (0major+15444minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/8th-dev$

107

Programming Challenges / Re: SALC Ubuntu 64

« on: December 19, 2019, 10:29:19 PM »

GO (Ubuntu 64 RPi 4B 4GB)

Code: Go

// GO - 1mil4.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])
 
}
 

ubuntu@rpi4b:~/salc/go-dev$ go build 1mil4.go ubuntu@rpi4b:~/salc/go-dev$ ls -l total 1932 -rwxr-xr-x 1 ubuntu ubuntu 2123629 Dec 19 14:26 1mil4 -rw-r--r-- 1 ubuntu ubuntu 887 Dec 19 14:25 1mil4.go ubuntu@rpi4b:~/salc/go-dev$ timex ./1mil4 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.11user 0.02system 0:00.12elapsed 109%CPU (0avgtext+0avgdata 19272maxresident)k 0inputs+0outputs (0major+4599minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/go-dev$

108

Programming Challenges / Re: SALC Ubuntu 64

« on: December 19, 2019, 08:36:36 AM »

JADE C++ (Ubuntu 64 RPi 4B 4GB)

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
 

riveraa@rpi:~/Projects/jade$ timex ./mil64 r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.05user 0.01system 0:00.07elapsed 98%CPU (0avgtext+0avgdata 10136maxresident)k 0inputs+0outputs (0major+3069minor)pagefaults 0swaps

109

Programming Challenges / Re: SALC Ubuntu 64

« on: December 18, 2019, 04:07:10 AM »

Nim 1,1,1 (Ubuntu 64 RPi 4B 4GB)

Code: Text

# Nim 1.1.1 - onemil4.nim
 
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]
 

ubuntu@rpi4b:~/salc/nim-dev$ timex ./onemil4 r Len: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.04user 0.03system 0:00.07elapsed 98%CPU (0avgtext+0avgdata 14136maxresident)k 0inputs+0outputs (0major+3290minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/nim-dev$

110

Nim / Re: Nim Introduction

« on: December 18, 2019, 03:02:08 AM »

Ubuntu wanted to install an older version of Nim via Synaptic. I thought I would give compiling it from source on the RPi 4B under Ubuntu 64 a try.

Hint: operation successful (121335 lines compiled; 46.147 sec total; 139.008MiB peakmem; Release Build) [SuccessX] ubuntu@rpi4b:~/repo/Nim/bin$ nim --version Nim Compiler Version 1.1.1 [Linux: arm64] Compiled at 2019-12-18 Copyright (c) 2006-2019 by Andreas Rumpf git hash: f9f55a23bbcb64824954ed83b60816499a7cc338 active boot switches: -d:release ubuntu@rpi4b:~/repo/Nim/bin$

111

Programming Challenges / Re: SALC Ubuntu 64

« on: December 17, 2019, 05:15:02 AM »

I split the topic into 4 groups

Just REM
One Mil Dash
SALC (String Array Language Challenge) Rasbain 32 bit on the RPi 4B 4GB
SALC Ubuntu 64 bit on the RPi 4B 4GB

A fifth round might be each language has to create a simple GUI. (not a popup message box) Maybe a login dialog.

112

Programming Challenges / Re: SALC Ubuntu 64

« on: December 17, 2019, 03:36:12 AM »

JavaScript (Ubuntu 64 RPi 4B 4GB)

Code: Javascript

// JavaScript - 1mil4.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]);
 

ubuntu@rpi4b:~/salc/javascript-dev$ timex node 1mil4.js r LEN: 999986 Front: ZYXWVUTSRQPONMLKJIHGFEDCBA Back: ZYXWVUTSRQPONMLKJIHGFEDCBA UBVal: 1000000 0.97user 0.21system 0:01.20elapsed 98%CPU (0avgtext+0avgdata 118448maxresident)k 88inputs+0outputs (1major+27106minor)pagefaults 0swaps ubuntu@rpi4b:~/salc/javascript-dev$

113

Programming Challenges / Re: SALC Ubuntu 64

« 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$

114

General Discussion / Re: Ubuntu 64 RPI 4B

« on: December 16, 2019, 05:55:22 PM »

If you own a RPi 4B 4GB, time to upgrade to a commercial grade OS. Ubuntu stole the RPi OS show.

115

Programming Challenges / Re: SALC Ubuntu 64

« on: December 16, 2019, 05:40:21 AM »

Thanks!

BaCon post updated.

116

Programming Challenges / Re: SALC Ubuntu 64

« 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.

117

Programming Challenges / Re: SALC Ubuntu 64

« 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.

118

Programming Challenges / Re: SALC Ubuntu 64

« 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$

119

Programming Challenges / Re: SALC Ubuntu 64

« 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$

120

Programming Challenges / Re: SALC Ubuntu 64

« 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$

Pages: 1 ... 6 7 [8] 9 10 ... 16

News:

Show Posts

Messages - John Spikowski

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Nim / Re: Nim Introduction

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

General Discussion / Re: Ubuntu 64 RPI 4B

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64

Programming Challenges / Re: SALC Ubuntu 64