Author Topic: One Mil Dash (Read 8899 times)

John Spikowski · « **on:** November 24, 2019, 09:22:52 PM »

ScriptBasic

Code: Script BASIC

' ScriptBasic - 1mil.sb
 
accum = 0
milvar = 1000000
 
FOR x = 1 TO 1000000
  accum += 1
  milvar -= 1
  IF accum = milvar THEN PRINT "Middle\n"
NEXT
PRINT "Plus:  ",accum,"\n"
PRINT "Minus: ",milvar,"\n"
 

pi@RPi4B:~/sbrt/examples $ /usr/bin/time scriba 1mil.sb Middle Plus: 1000000 Minus: 0 2.18user 0.00system 0:02.21elapsed 99%CPU (0avgtext+0avgdata 1972maxresident)k 520inputs+0outputs (1major+108minor)pagefaults 0swaps pi@RPi4B:~/sbrt/examples $

John Spikowski · « **Reply #1 on:** November 24, 2019, 11:15:02 PM »

BaCon

Code: Text

' BaCon - 1mil.bac
 
accum = 0
milvar = 1000000
 
FOR x = 1 TO 1000000
  accum = accum + 1
  milvar = milvar -1
  IF accum = milvar THEN PRINT "Middle"
NEXT
PRINT "Plus:  ",accum
PRINT "Minus: ",milvar
 

pi@RPi4B:~/bacon-dev/examples $ bacon 1mil.bac Converting '1mil.bac'... done, 13 lines were processed in 0.035 seconds. Compiling '1mil.bac'... cc -c 1mil.bac.c cc -o 1mil 1mil.bac.o -lbacon -L. -lm Done, program '1mil' ready. pi@RPi4B:~/bacon-dev/examples $ ls -l 1mil -rwxr-xr-x 1 pi pi 49968 Nov 25 21:03 1mil pi@RPi4B:~/bacon-dev/examples $ /usr/bin/time ./1mil Middle Plus: 1000000 Minus: 0 0.03user 0.00system 0:00.03elapsed 96%CPU (0avgtext+0avgdata 1536maxresident)k 0inputs+0outputs (0major+84minor)pagefaults 0swaps pi@RPi4B:~/bacon-dev/examples $

John Spikowski · « **Reply #2 on:** November 24, 2019, 11:40:30 PM »

FreeBasic

Code: FreeBasic

' FreeBasic - 1mil.bas
 
DIM accum AS Integer = 0
DIM milvar AS Integer = 1000000
DIM x AS Integer
 
FOR x = 1 TO 1000000
  accum += 1
  milvar -= 1
  IF accum = milvar THEN PRINT "Middle"
NEXT
PRINT "Plus:  ",accum
PRINT "Minus: ",milvar
 

pi@RPi4B:~/freebasic-dev/examples $ fbc 1mil.bas pi@RPi4B:~/freebasic-dev/examples $ ls -l 1mil -rwxr-xr-x 1 pi pi 30092 Nov 25 21:13 1mil pi@RPi4B:~/freebasic-dev/examples $ /usr/bin/time ./1mil Middle Plus: 1000000 Minus: 0 0.00user 0.01system 0:00.06elapsed 34%CPU (0avgtext+0avgdata 2072maxresident)k 0inputs+0outputs (0major+125minor)pagefaults 0swaps pi@RPi4B:~/freebasic-dev/examples $

John Spikowski · « **Reply #3 on:** November 25, 2019, 12:37:07 AM »

C

Code: C

// C - 1mil.c
 
#include <stdio.h>
 
int main (int argc, char** argv)
{
int accum = 0;
int milvar = 1000000;
int x;
 
for(x = 1; x <=  1000000; ++x)
  {
    ++ accum;
    -- milvar;
    if(accum == milvar) printf("Middle\n");
  }
  printf("Plus:  %d\n", accum);
  printf("Minus: %d\n", milvar);
  return 0;
}
 

pi@RPi4B:~/c-dev/examples $ gcc 1mil.c -o 1mil pi@RPi4B:~/c-dev/examples $ ls -l 1mil -rwxr-xr-x 1 pi pi 8016 Nov 25 21:24 1mil pi@RPi4B:~/c-dev/examples $ /usr/bin/time ./1mil Middle Plus: 1000000 Minus: 0 0.02user 0.00system 0:00.02elapsed 100%CPU (0avgtext+0avgdata 1208maxresident)k 0inputs+0outputs (0major+73minor)pagefaults 0swaps pi@RPi4B:~/c-dev/examples $

John Spikowski · « **Reply #4 on:** November 25, 2019, 03:44:24 AM »

Perl

Code: Perl

# Perl - 1mil.pl
 
my $accum = 0;
my $milvar = 1000000;
 
for (my $i=1; $i <= 1000000; $i++) {
  $accum++;
  $milvar--;
  if($accum == $milvar){
    printf("Middle\n");
  }
}
printf("Plus:  %d\n", $accum);
printf("Minus: %d\n", $milvar);
 

pi@RPi4B:~/perl-dev/examples $ /usr/bin/time perl 1mil.pl Middle Plus: 1000000 Minus: 0 0.33user 0.01system 0:00.34elapsed 99%CPU (0avgtext+0avgdata 3976maxresident)k 24inputs+0outputs (1major+186minor)pagefaults 0swaps pi@RPi4B:~/perl-dev/examples $

John Spikowski · « **Reply #5 on:** November 25, 2019, 04:51:17 AM »

Python 3

Code: Python

# Python 3 - 1mil.py
 
accum = 0
milvar = 1000000
 
for x in range(1000000):
  accum += 1
  milvar -= 1
  if accum == milvar:
    print("Middle")
 
print("Plus:  {}".format(accum))
print("Minus: {}".format(milvar))
 

pi@RPi4B:~/python-dev/examples $ /usr/bin/time python3 1mil.py Middle Plus: 1000000 Minus: 0 0.73user 0.05system 0:00.78elapsed 98%CPU (0avgtext+0avgdata 7208maxresident)k 0inputs+0outputs (0major+728minor)pagefaults 0swaps pi@RPi4B:~/python-dev/examples $

John Spikowski · « **Reply #6 on:** November 25, 2019, 08:12:03 PM »

Bash

It seems Bash doesn't like spaces with assignments using declare.

Code: Bash

# bash - 1mil.sh
 
declare -i accum=0
declare -i milvar=1000000
 
for i in {1..1000000}
do
  ((++accum))
  ((--milvar))
  if (( $accum == $milvar ));
    then
      echo "Middle"
  fi
done
 
echo "Plus:  " $accum
echo "Minus: " $milvar
 

pi@RPi4B:~/bash-dev/examples $ /usr/bin/time bash 1mil.sh Middle Plus: 1000000 Minus: 0 22.69user 0.48system 0:23.20elapsed 99%CPU (0avgtext+0avgdata 197804maxresident)k 8inputs+0outputs (0major+49929minor)pagefaults 0swaps pi@RPi4B:~/bash-dev/examples $

John Spikowski · « **Reply #7 on:** November 25, 2019, 08:53:46 PM »

Java

Code: Java

class onemil
  {
  public static void main(String args[])
  {
  int accum = 0;
  int milvar = 1000000;
  for (int i = 1; i <= 1000000; i++) {
    ++accum;
    --milvar;
    if(accum == milvar){  
      System.out.println("Middle");  
    }  
  }
  System.out.println("Plus:  " + accum);
  System.out.println("Minus: " + milvar);
  }
  }
 

pi@RPi4B:~/java-dev/examples $ javac 1mil.java pi@RPi4B:~/java-dev/examples $ ls -l onemil.class -rw-r--r-- 1 pi pi 1001 Nov 25 22:48 onemil.class pi@RPi4B:~/java-dev/examples $ /usr/bin/time java onemil Middle Plus: 1000000 Minus: 0 0.41user 0.03system 0:00.42elapsed 104%CPU (0avgtext+0avgdata maxresident)k 0inputs+64outputs (0major+2234minor)pagefaults 0swaps pi@RPi4B:~/java-dev/examples $

John Spikowski · « **Reply #8 on:** November 25, 2019, 10:24:42 PM »

JavaScript

Code: Javascript

// JavaScript - 1mil.js
 
var accum = 0;
var milvar = 1000000;
var i ;
 
for (i = 1; i <= 1000000; i++) {
  accum += 1;
  milvar -= 1;
  if ((accum == milvar)) {
    console.log("Middle");
  }
}
 
console.log("Plus:  " + accum)
console.log("Minus: " + milvar)
 

pi@RPi4B:~/javascript-dev/examples $ /usr/bin/time node 1mil.js Middle Plus: 1000000 Minus: 0 1.65user 0.08system 0:01.74elapsed 99%CPU (0avgtext+0avgdata 30412maxresident)k 0inputs+0outputs (0major+6197minor)pagefaults 0swaps pi@RPi4B:~/javascript-dev/examples $

John Spikowski · « **Reply #9 on:** November 26, 2019, 12:43:38 AM »

PHP

Code: PHP

<?php
 
# PHP - 1mil.php
 
$accum = 0;
$milvar = 1000000;
 
for ($i = 1; $i <= 1000000; $i++) {
  $accum++;
  $milvar--;
  if ($accum == $milvar) {
    echo "Middle\n";
  }
}
 
echo "Plus:  ", $accum, "\n";
echo "Minus: ", $milvar, "\n";
 
?>
 

pi@RPi4B:~/php-dev/examples $ /usr/bin/time php 1mil.php Middle Plus: 1000000 Minus: 0 0.21user 0.01system 0:00.22elapsed 99%CPU (0avgtext+0avgdata 13140maxresident)k 0inputs+0outputs (0major+866minor)pagefaults 0swaps pi@RPi4B:~/php-dev/examples $

John Spikowski · « **Reply #10 on:** November 26, 2019, 01:14:40 AM »

Swift

I may have found a bug with swiftc. The compiled version doesn't do the compare correctly and Middle is never printed.

Code: Text

// Swift - 1mil.swift
 
var accum = 0
var milvar = 1000000
 
for _ in 1...1000000 {
  accum += 1
  milvar -= 1
  if accum == milvar {
    print("Middle")
  }  
}
 
print("Plus:  ", accum)
print("Minus: ", milvar)
 

Interpretive
pi@RPi4B:~/swift-dev/examples $ /usr/bin/time swift 1mil.swift Middle Plus: 1000000 Minus: 0 0.90user 0.12system 0:02.20elapsed 47%CPU (0avgtext+0avgdata 86000maxresident)k 83968inputs+392outputs (368major+4659minor)pagefaults 0swaps pi@RPi4B:~/swift-dev/examples $

Compiled
pi@RPi4B:~/swift-dev/examples $ swiftc 1mil.swift -o 1mil pi@RPi4B:~/swift-dev/examples $ ls -l total 36 -rwxr-xr-x 1 pi pi 14360 Nov 30 11:31 1mil -rw-r--r-- 1 pi pi 211 Nov 26 01:28 1mil.swift -rwxr-xr-x 1 pi pi 14524 Nov 26 01:29 main pi@RPi4B:~/swift-dev/examples $ /usr/bin/time ./1mil Middle Plus: 1000000 Minus: 0 0.33user 0.01system 0:00.34elapsed 99%CPU (0avgtext+0avgdata 6724maxresident)k 0inputs+0outputs (0major+274minor)pagefaults 0swaps pi@RPi4B:~/swift-dev/examples $ swift --version Swift version 5.1 (swift-5.1.2-RELEASE) Target: armv7-unknown-linux-gnueabihf pi@RPi4B:~/swift-dev/examples $

John Spikowski · « **Reply #11 on:** November 26, 2019, 01:27:50 AM »

Here are the 1mil challenge results.

John Spikowski · « **Reply #12 on:** November 26, 2019, 09:32:09 PM »

AIR submitted an updated Bash script which is more efficient. (Thank You!) The post and the chart have been updated,

I have no plans to install Ruby or Rust. If you would like to submit an entry for these languages then either join the forum and post it or send me an e-mail to support @ raspberrybasic.org.

John Spikowski · « **Reply #13 on:** November 27, 2019, 03:11:46 AM »

Ruby

I wasn't aware that Ruby comes pre-installed.

Code: Ruby

# Ruby - 1mil.rb
 
accum = 0
milvar = 1000000
 
for x in 1..1000000
  accum += 1
  milvar -= 1
  if accum == milvar then
    puts "Middle"
  end
end
 
puts "Plus:  #{accum}"
puts "Minus: #{milvar}"
 

pi@RPi4B:~/ruby-dev/examples $ /usr/bin/time ruby 1mil.rb Middle Plus: 1000000 Minus: 0 0.42user 0.04system 0:00.57elapsed 81%CPU (0avgtext+0avgdata 6840maxresident)k 3008inputs+0outputs (1major+881minor)pagefaults 0swaps pi@RPi4B:~/ruby-dev/examples $

News:

Author Topic: One Mil Dash (Read 8899 times)

John Spikowski

One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash

John Spikowski

Re: One Mil Dash