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] 2 3 ... 6

Nim / Re: Nim Fibo

« on: Today at 05:34:13 AM »

A Fibo Nim example for our RPI forum friends.

Code: Text

import math
 
proc Fibonacci(n: int): int64 =
  var fn = float64(n)
  var p: float64 = (1.0 + sqrt(5.0)) / 2.0
  var q: float64 = 1.0 / p
  return int64((pow(p, fn) + pow(q, fn)) / sqrt(5.0))
 
echo Fibonacci(78)
 

pi@RPi4B:~/nim-dev/examples $ nim c -d:release fibo78.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: fibo78 [Processing] Hint: math [Processing] Hint: bitops [Processing] CC: fibo78 CC: stdlib_system CC: stdlib_math CC: stdlib_bitops Hint: [Link] Hint: operation successful (13698 lines compiled; 4.051 sec total; 10.754MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/nim-dev/examples $ timex ./fibo78 8944394323791488 0.00user 0.00system 0:00.00elapsed 83%CPU (0avgtext+0avgdata 1292maxresident)k 0inputs+0outputs (0major+98minor)pagefaults 0swaps pi@RPi4B:~/nim-dev/examples $ time ./fibo78 8944394323791488 real 0m0.008s user 0m0.008s sys 0m0.001s pi@RPi4B:~/nim-dev/examples $

There is a GMP extension for Nim that I might give the 1mil fibo a shot with.

Nim GMP

Nim / Nim IUP

« on: Today at 04:25:35 AM »

I was able to get the IUP distribution I built for the RPi and Nim to work together. A "Hello Nim" of sorts.

Code: Text

import iup
 
proc btn_click(ih:PIhandle):cint {.cdecl.}=
    iup.message("Popup", "You clicked the button!")
 
discard iup.open(nil, nil)
 
var btn = iup.button("Click me!", nil)
discard iup.setCallback(btn, "ACTION", cast[ICallback](btn_click))
 
var dlg = iup.dialog(iup.vbox(btn, nil))
iup.setAttribute(dlg, "TITLE", "iupTabs")
 
discard iup.showXY(dlg, IUP_CENTER, IUP_CENTER)
discard iup.mainLoop()
 
iup.close()
 

pi@RPi4B:~/pui/iup-master/examples $ nim c -d:release callbacks.nim Hint: used config file '/etc/nim/nim.cfg' [Conf] Hint: system [Processing] Hint: callbacks [Processing] Hint: iup [Processing] CC: iup_callbacks CC: stdlib_system CC: stdlib_iup Hint: [Link] Hint: operation successful (13356 lines compiled; 4.586 sec total; 10.758MiB peakmem; Release Build) [SuccessX] pi@RPi4B:~/pui/iup-master/examples $ ls -l total 72 -rwxr-xr-x 1 pi pi 59180 Dec 6 20:17 callbacks -rw-r--r-- 1 pi pi 413 Nov 4 02:39 callbacks.nim -rw-r--r-- 1 pi pi 576 Nov 4 02:39 menu.nim -rw-r--r-- 1 pi pi 1023 Nov 4 02:39 tabs.nim pi@RPi4B:~/pui/iup-master/examples $ ./callbacks

Programming Challenges / Re: Just REM

« on: Today at 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 $

General Discussion / Re: RPI Forum

« on: December 06, 2019, 06:31:52 AM »

Quote from: Heater@RPI

When silly discussions have gone on long enough jamesh locks the thread. Everything goes dark.

Sooner or later the realization will set in that the RPi forum is focused towards support / Q&A topics. A bunch of old programmers shooting the shit or sharing a trick or two isn't part of the program. Any of the old farts that feel the moderator kids are being obnoxious, feel free to join us here,

Translators / Universal Language Translator

« on: December 06, 2019, 05:09:31 AM »

Hi Brian,

Thanks for joining us on the forum.

With your language translation skills have you thought of fostering a universal programming language translator project? Something like Google translate but for programming languages.

As you can see from the string / array language challenge the syntax isn't that different between them. I would like to hear your thoughts on the challenges that might be ahead.

Programming Challenges / Re: Just REM

« on: December 04, 2019, 08:40:38 PM »

Here is the String / Array language challenge results table.

Programming Challenges / Re: Just REM

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

Programming Challenges / Re: Just REM

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

Programming Challenges / Re: Just REM

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

General Discussion / RPI Forum

« on: December 03, 2019, 04:40:04 PM »

Quote

I don't know if John is still following this thread or not, but if he is, thanks for finding that note. Those pages covered the mathematics so I could proceed directly to the software engineering needed to write an efficient program. It also helped to look at the sample code included in the post.

@ejolson,

Glad it helped! Wish you were here.

Programming Challenges / Re: Just REM

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

Programming Challenges / Re: Just REM

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

General Discussion / MS Rust

« on: December 02, 2019, 06:52:49 PM »

Microsoft: We're creating a new Rust-based programming language for secure coding

That should make Heater feel whole again.

Swift / Re: Swift RPi

« on: December 02, 2019, 03:50:31 PM »

I'm going to pass my findings over to the RPi Swift maintainer and hope he can find out why Swift runs so slow on the RPi.

Programming Challenges / Re: Just REM

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

Pages: [1] 2 3 ... 6

News:

Show Posts

Messages - John Spikowski

Nim / Re: Nim Fibo

Nim / Nim IUP

Programming Challenges / Re: Just REM

General Discussion / Re: RPI Forum

Translators / Universal Language Translator

Programming Challenges / Re: Just REM

Programming Challenges / Re: Just REM

Programming Challenges / Re: Just REM

Programming Challenges / Re: Just REM

General Discussion / RPI Forum

Programming Challenges / Re: Just REM

Programming Challenges / Re: Just REM

General Discussion / MS Rust

Swift / Re: Swift RPi

Programming Challenges / Re: Just REM