Michel G. Combes michel47

## h.jpg

      
              4 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                michel47
                / h.jpg
            
            
              Last active Dec 26, 2020
            
              
                Why Hello
              
          
      View h.jpg
  
    
## _jsRedirect.md

      
              8 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                michel47
                / _jsRedirect.md
            
            
              Last active Dec 9, 2020
            
              
                IPFS redirector (javascript)
              
          
      View _jsRedirect.md
  
    
  head
  gist
  hash
  qm
  
  
  6b79faa
  5d06c7e30abe8b4e1c1eb31edb34affd
  QmSNKruojmACYPRwT3Fx8N5yovZmxBGuWWgrK3uiaD1Z3v
  Qmb4Ga8fW5a7X8TUVuGegQFYeFnEkUDMSvLX4U35bv4Goz
  
  
Javascript IPFS redirect

  
## .dircolors
# LS_COLORS ($Source: /my/shell/setup/.dircolors$)
# for ANSI color code see also [*](https://en.wikipedia.org/wiki/ANSI_escape_code)
#
# Maintainers: Magnus Woldrich <m@japh.se>,
#              Ryan Delaney <ryan.delaney@gmail.com> OpenGPG: 0D98863B4E1D07B6
#              Michel G. Combes <michelc@gc-bank.org> OpenGPG:
#         URL: https://github.com/trapd00r/LS_COLORS
#     Version: 0.254
#     Updated: Tue Mar 29 21:25:30 AEST 2016
#

## read_multiline.sh
#


# for sh
solution="$(cat <<-EOT
use cat instead of read
and don't forget
to use "" to protect your "\\\\n"
to be replaced w/ spaces.
EOT

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                michel47
                / keybase.md
            
            
              Created Aug 16, 2020
            
          
      View keybase.md
  
    
    Keybase proof
I hereby claim:

I am michel47 on github.
I am michelc (https://keybase.io/michelc) on keybase.
I have a public key whose fingerprint is FAD0 F155 9C15 C16D 1C82  D8F0 1092 2EF0 40B0 11EF

To claim this, I am signing this object:

  
## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                michel47
                / keybase.md
            
            
              Created Aug 15, 2020
            
              
                keybase claim of id
              
          
      View keybase.md
  
    
    Keybase proof
I hereby claim:

I am michel47 on github.
I am michel47 (https://keybase.io/michel47) on keybase.
I have a public key whose fingerprint is 5C19 0E40 DE17 68D1 4F55  43F9 02BF B5E1 314C 4080

To claim this, I am signing this object:

  
## hashslice.pl
#!perl

# how to assign a hash table in parallel
# using the whole slice !!!
# read more : http://perldoc.perl.org/perldata.html
#
# courtersy Michel Combes (@ Advancement of Civilization Effort Org.)
my %hash;
my @array = (1 .. 5);
my @keys = ('a' .. 'e');

## de(n)code58.pl
#!perl

my $IPFSalphabet = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';

if ($0 eq __FILE__) {
my $e = '987654321ABC';
my $a = &decode_base($e,$IPFSalphabet);
printf "%s -> %s\n",$e,unpack('H*',$a);
my $e = &encode_base($a,$IPFSalphabet);
printf "%s -> %s\n",unpack('H*',$a),$e;

## FFTnd.bat
@:=' -- $RCSfile: FFTnd.bat,v $
@start c:\strawberry\perl\bin\perl.exe -x -S %0 %* & goto endofperl '; # vim: filetype=perl nowrap
#!perl

# note by doing an FFT I go from spacial domain to frequency domain...
#  i.e. bridging the physical world to the spiritual one <3
#
my ($source) = q$Source: /my/perl/script/fftnd.pl $ =~ /: (\S+)/;

eval { our $pwd = Win32::GetCwd() }; # current directory

## autocrop.pl
#!perl
use PDL;

my $file = shift || 'example.jpg'; # if no argument is passed use example.jpg
my $thres = 0.40;

# chopping the file path ...
my $s = rindex($f,'/');
my $fpath = ($s > 0) ? substr($f,0,$s) : '.';
my $filename = substr($file,$s+1);
	# LS_COLORS ($Source: /my/shell/setup/.dircolors$)
	# for ANSI color code see also [*](https://en.wikipedia.org/wiki/ANSI_escape_code)
	#
	# Maintainers: Magnus Woldrich <m@japh.se>,
	# Ryan Delaney <ryan.delaney@gmail.com> OpenGPG: 0D98863B4E1D07B6
	# Michel G. Combes <michelc@gc-bank.org> OpenGPG:
	# URL: https://github.com/trapd00r/LS_COLORS
	# Version: 0.254
	# Updated: Tue Mar 29 21:25:30 AEST 2016
	#
	#


	# for sh
	solution="$(cat <<-EOT
	use cat instead of read
	and don't forget
	to use "" to protect your "\\\\n"
	to be replaced w/ spaces.
	EOT
	#!perl

	# how to assign a hash table in parallel
	# using the whole slice !!!
	# read more : http://perldoc.perl.org/perldata.html
	#
	# courtersy Michel Combes (@ Advancement of Civilization Effort Org.)
	my %hash;
	my @array = (1 .. 5);
	my @keys = ('a' .. 'e');
	#!perl

	my $IPFSalphabet = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';

	if ($0 eq __FILE__) {
	my $e = '987654321ABC';
	my $a = &decode_base($e,$IPFSalphabet);
	printf "%s -> %s\n",$e,unpack('H*',$a);
	my $e = &encode_base($a,$IPFSalphabet);
	printf "%s -> %s\n",unpack('H*',$a),$e;
	@:=' -- $RCSfile: FFTnd.bat,v $
	@start c:\strawberry\perl\bin\perl.exe -x -S %0 %* & goto endofperl '; # vim: filetype=perl nowrap
	#!perl

	# note by doing an FFT I go from spacial domain to frequency domain...
	# i.e. bridging the physical world to the spiritual one <3
	#
	my ($source) = q$Source: /my/perl/script/fftnd.pl $ =~ /: (\S+)/;

	eval { our $pwd = Win32::GetCwd() }; # current directory
	#!perl
	use PDL;

	my $file = shift \|\| 'example.jpg'; # if no argument is passed use example.jpg
	my $thres = 0.40;

	# chopping the file path ...
	my $s = rindex($f,'/');
	my $fpath = ($s > 0) ? substr($f,0,$s) : '.';
	my $filename = substr($file,$s+1);