⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.23
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
language
/
brainfuck
/
View File Name :
compile-scheme.go
GOOF----LE-8-2.0Z ] @ 4 h� ] g guile� � g define-module*� � � g language� g brainfuck� g compile-scheme� � g filenameS� f %language/brainfuck/compile-scheme.scm� g exportsS� � g set-current-module� � � g tape-size� g let� g pointer� � g tape� g make-vector� � g <brainfuck>� g begin� g append� � � g compile-body� g write-char� � � !g error� "f expected brainfuck program� #g reverse� $g compile-instruction� %g <bf-move>� &g set!� 'g +� (g <bf-increment>� )g vector-set!� *g vector-ref� +* � ,g <bf-print>� -g integer->char� .-+ � / . � 0g <bf-read>� 1g char->integer� 2g read-char� 32 � 413 � 5)4 � 6g <bf-loop>� 7g iterate� 8g if� 9g not� :g =� ;:+ � <9; � =7 � >= � ?f unknown brainfuck instruction �C 5 h� � ]4 5 4 > " G u0R !" hH ]�� �& 4 4 �5 5�" 4 5��D g exp D g env D g opts D g filenamef %language/brainfuck/compile-scheme.scm� 5 �� 7 �� 9 �� 9 $�� 9 �� ! ; �� % < �� * < �� , < �� . ; �� 6 : �� : : �� < : �� = 7 �� D 6 �� D g nameg compile-scheme� CR#$ h8 - ]" &( 64�5 �� "��� "��� % g instructions 7 g cur , g result , g compiled , g filenamef %language/brainfuck/compile-scheme.scm� G �� H �� J �� K �� L �� L +�� L �� L �� M �� $ M �� , M �� , H �� / I �� 7 H �� 7 g nameg compile-body� C R%&'()+,/05678< >!? h� s ] � �$ �� C�$ �� C �$ C �$ C �$ "44 �55� C6 k g ins � g key � g dir ' g inc 4 I g filenamef %language/brainfuck/compile-scheme.scm� S �� T �� T �� Y �� Y �� Z �� 0 T �� 3 _ �� 4 _ �� 8 ` �� R T �� T f �� ^ T �� ` l �� j T �� l w �� y z �� ~ z �� � z �� � w �� � } �� � } 2�� � } �� � g nameg compile-instruction� C$RC� g m ( g filenamef %language/brainfuck/compile-scheme.scm� �� . $ �� � 5 �� 8 G �� � S �� � C6