marcoonroad

# use strict;
  use warnings;
  use feature qw/ say /;

# my @array = %ENV;
# my $length = scalar (@array);
# my $i;
# for ($i = 0; $i < ($length/2); $i++) {
#   my $first = shift(@array);
#   my $second = shift(@array); 

marcoonroad

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();

print ("Please wait 5 seconds...");
droid.call("batteryStartMonitoring"); 
Thread.sleep(5000); //or exec("sleep 5");

read = droid.call("readBatteryData").get("result"); 

check = droid.call("batteryCheckPresent").get("result");

marcoonroad

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");

droid = Android();

env = droid.call("environment").get("result");
tz = env.get("TZ");
sd = env.get("sdcard");

print("=== General infos ======================");
print("Download path : " + env.get("download"));

marcoonroad

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");

droid = Android();
print ("Please wait 5 seconds...");
droid.call("startSensingTimed", 1, 250);
exec("sleep 5");

read = droid.call("readSensors").get("result");
accu = droid.call("sensorsGetAccuracy").get("result");

marcoonroad

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");

droid = Android();

info = droid.call("wifiGetConnectionInfo").get("result");

print ("MAC Addresses: " + info.get("mac_address"));
print ("BSSID: " + info.get("bssid"));
print ("Hidden SSID? " + info.get("hidden_ssid"));
print ("IP Address: " + info.get("ip_address"));

marcoonroad

// declare function //
load_text(filename) {
  
  size = 1024; // declare buffer stream //
  
  // read given filename //
  fin = new BufferedReader (new InputStreamReader (new FileInputStream (filename)), size);
  
  // assign empty string //
  text = ""; line = "" ;

marcoonroad

use warnings;

# === Clean way: =============================== #
# use List::Util qw/ product /;                  #
# sub factorial { product 1 .. $_[0] }           #
# print factorial 5;                             #
# ============================================== #

sub{print @_,"\n"}->(sub{sub{my($c,$r)=(shift,1);;
$r=$c->($r,$_)for@_;$r}->(shift,1..shift)}->(&{sub

marcoonroad

#!/usr/bin/perl6

use v6;

my @fib := ^2, *+* ... *; # lazy list with fibonacci sequence under memoization
sleep +(.say) for @fib;

# foreach @fib get a $value, so print this $value, then cast the Bool result of say (True)
# into a Integer, now you can pass this Integer (1) for a sleep (delay $x seconds) function...

marcoonroad

#!/usr/bin/perl

use feature qw/ say /;
use warnings;

my @Array = ([1 .. 10], [11 .. 20], [21 .. 30]);
my $CodeRef = sub { shift; say for @_ };

for (0 .. 2) {
    unshift @{ $Array[$_] }, \&{ $CodeRef };

marcoonroad

[DESAFIO / LANGUAGE WAR]

Implemente um programa em sua linguagem favorita, aonde o usuário digita um número x qualquer, e o programa calcula a soma dos x primeiros números pares da sequência fibonacci, imprimindo depois, a soma dos algarismos desse número.

Por exemplo, quando x <- 5, a resposta é 17, pois:

1. A sequência fibonacci é [0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ...].
2. Os 5 primeiros números pares são [0, 2, 8 e 34, 144].
3. O somatório disso tudo é 188 (List::Util::sum @array).
4. Somando os algarismos, 1 + 8 + 8 -> 17 (substring de string).