Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Execute-Brain-/Perl/execute-brain-.pl
+++ b/Task/Execute-Brain-/Perl/execute-brain-.pl
@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+my %code = split ' ', <<'END';
+  >  $ptr++
+  <  $ptr--
+  +  $memory[$ptr]++
+  -  $memory[$ptr]--
+  ,  $memory[$ptr]=ord(getc)
+  .  print(chr($memory[$ptr]))
+  [  while($memory[$ptr]){
+  ]  }
+END
+
+my ($ptr, @memory) = 0;
+eval join ';', map @code{ /./g }, <>;