⚝
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 :
~
/
proc
/
self
/
root
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
View File Name :
srfi-27.go
GOOF----LE-8-2.0�K ]D 4 h�/ ] g guile� � g define-module*� � � g srfi� g srfi-27� � g filenameS� f srfi/srfi-27.scm� g importsS� g srfi-9� � � � g exportsS� g random-integer� g random-real� g default-random-source� g make-random-source� g random-source?� g random-source-state-ref� g random-source-state-set!� g random-source-randomize!� g random-source-pseudo-randomize!� g random-source-make-integers� g random-source-make-reals� � g set-current-module� � � g cond-expand-provide� !g current-module� " � #g :random-source� $g %%make-random-source-procedure� %g make-syntax-transformer� &% � '% � (g %make-random-source� )g macro� *g $sc-dispatch� +* � ,* � -g _� .g any� /-. � 0g syntax-object� 1g lambda� 2g m-VKNbtLCHc1yt4qH7FM1Wkz-17204� 3g top� 423 � 5g ribcage� 6g t-17203� 76 � 84 � 9f l-VKNbtLCHc1yt4qH7FM1Wkz-17209� :9 � ;578: � <5 � =g x� >= � ?f l-VKNbtLCHc1yt4qH7FM1Wkz-17206� @? � A5>8@ � Bg shift� Cg proc-name� Dg args� ECD � F3 � GFF � Hf l-VKNbtLCHc1yt4qH7FM1Wkz-817� If l-VKNbtLCHc1yt4qH7FM1Wkz-818� JHI � K5EGJ � Lg key� Mg value� Ng name� Og formals� Pg body� QLMNOP � RFFFFF � Sf l-VKNbtLCHc1yt4qH7FM1Wkz-804� Tf l-VKNbtLCHc1yt4qH7FM1Wkz-805� Uf l-VKNbtLCHc1yt4qH7FM1Wkz-806� Vf l-VKNbtLCHc1yt4qH7FM1Wkz-807� Wf l-VKNbtLCHc1yt4qH7FM1Wkz-808� XSTUVW � Y5QRX � Zg make-procedure-name� [Z � \F � ]f l-VKNbtLCHc1yt4qH7FM1Wkz-788� ^] � _5[\^ � `F � af l-VKNbtLCHc1yt4qH7FM1Wkz-787� ba � c5>`b � d4;<AB<<<<KY_c � eg hygiene� fe � g01df � hg state� iF;<A � je � k0hij � lk � mg make-struct� ng m-VKNbtLCHc1yt4qH7FM1Wkz-17201� on3 � pg t-1028� qg t-1027� rg t-1026� spqr � tg m-VKNbtLCHc1yt4qH7FM1Wkz-1029� ut3 � vuuu � wf l-VKNbtLCHc1yt4qH7FM1Wkz-1033� xf l-VKNbtLCHc1yt4qH7FM1Wkz-1034� yf l-VKNbtLCHc1yt4qH7FM1Wkz-1035� zwxy � {5svz � |g ctor-args� }| � ~f l-VKNbtLCHc1yt4qH7FM1Wkz-1009� ~ � �5}` � �g ctor� �g field� ��� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1005� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1006� ��� � �5�G� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �FFFF � �f l-VKNbtLCHc1yt4qH7FM1Wkz-994� �f l-VKNbtLCHc1yt4qH7FM1Wkz-995� �f l-VKNbtLCHc1yt4qH7FM1Wkz-996� �f l-VKNbtLCHc1yt4qH7FM1Wkz-997� ����� � �5��� � �g record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �FFFFFFFF � �f l-VKNbtLCHc1yt4qH7FM1Wkz-954� �f l-VKNbtLCHc1yt4qH7FM1Wkz-952� �f l-VKNbtLCHc1yt4qH7FM1Wkz-950� �f l-VKNbtLCHc1yt4qH7FM1Wkz-948� �f l-VKNbtLCHc1yt4qH7FM1Wkz-946� �f l-VKNbtLCHc1yt4qH7FM1Wkz-944� �f l-VKNbtLCHc1yt4qH7FM1Wkz-942� �f l-VKNbtLCHc1yt4qH7FM1Wkz-940� ��������� � �5��� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-939� �� � �5>`� � �o;<AB<{<<<��<��� � �0m�f � �0#ij � �0 �f � ����k � �gl� � �g identifier?� � � � � � � �F<A � �0$�j � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� � � � � � � �g pw� �g default-record-printer� � � � � � � �h � �g set-struct-vtable-name!� � � � � � � �g vtable-offset-user� � � � � � � �g %random-source?-procedure� �g m-VKNbtLCHc1yt4qH7FM1Wkz-17214� ��3 � �g t-17213� �� � �� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-17219� �� � �5��� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-17216� �� � �5>�� � ���<�B<<<<KY_c � �01�f � �g obj� �g t-1269� �g t-1263� �g t-1264� �g t-1265� �g t-1268� �g t-1267� �g t-1266� �������� � �g m-VKNbtLCHc1yt4qH7FM1Wkz-1270� ��3 � �������� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1274� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1275� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1276� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1277� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1278� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1279� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1280� �������� � �5��� � �g copier-id� �� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1261� �� � �5�`� � �g ctor-name� �� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1253� �� � �5�`� � �� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1251� �� � �5�`� � �g layout� �� � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1249� �� � �5�`� � �g immutable?� �� � f l-VKNbtLCHc1yt4qH7FM1Wkz-1247� �5�` �g field-count� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1245� �5` �g getter-ids� � f l-VKNbtLCHc1yt4qH7FM1Wkz-1242� �5 ` � g field-ids� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1239� �5` �g predicate-name�g field-spec����� �FFFFFF �f l-VKNbtLCHc1yt4qH7FM1Wkz-1226�f l-VKNbtLCHc1yt4qH7FM1Wkz-1227�f l-VKNbtLCHc1yt4qH7FM1Wkz-1228�f l-VKNbtLCHc1yt4qH7FM1Wkz-1229�f l-VKNbtLCHc1yt4qH7FM1Wkz-1230�f l-VKNbtLCHc1yt4qH7FM1Wkz-1231� �5 �o�<�B<�<<<<�<�<�<�<<<<�� �0�f � �!g and�"0!f �#g struct?�$0#f �%$ �&g eq?�'0&f �(g struct-vtable�)0(f �*) �+F�<� �,0#+j �-'*, �."%- �/� . �0F<� �10�0j �2g throw-bad-struct�3 2 �4 2 �5g random-source-state�6g %random-source-state-procedure�7g free-id�8g %%on-error�9g m-VKNbtLCHc1yt4qH7FM1Wkz-17223�:93 �;: �<f l-VKNbtLCHc1yt4qH7FM1Wkz-17225�=< �>5>;= �?:<>B<<<<KY_c �@08?f �A7@ �BA. �Cg %%type�Dg t-1052�Eg t-1053�Fg t-1054�Gg t-1055�Hg t-1056�Ig t-1057�Jg t-1058�KDEFGHIJ �Lg m-VKNbtLCHc1yt4qH7FM1Wkz-1059�ML3 �NMMMMMMM �Of l-VKNbtLCHc1yt4qH7FM1Wkz-1063�Pf l-VKNbtLCHc1yt4qH7FM1Wkz-1064�Qf l-VKNbtLCHc1yt4qH7FM1Wkz-1065�Rf l-VKNbtLCHc1yt4qH7FM1Wkz-1066�Sf l-VKNbtLCHc1yt4qH7FM1Wkz-1067�Tf l-VKNbtLCHc1yt4qH7FM1Wkz-1068�Uf l-VKNbtLCHc1yt4qH7FM1Wkz-1069�VOPQRSTU �W5KNV �Xg getter�Yg index�ZXY �[f l-VKNbtLCHc1yt4qH7FM1Wkz-1050�\f l-VKNbtLCHc1yt4qH7FM1Wkz-1051�][\ �^5ZG] �_�� �`FFF �af l-VKNbtLCHc1yt4qH7FM1Wkz-1045�bf l-VKNbtLCHc1yt4qH7FM1Wkz-1046�cf l-VKNbtLCHc1yt4qH7FM1Wkz-1047�dabc �e5_`d �fo<>B<W<<<^<e�� �g0Cff �h7g �i-Bh. �jg ck�kg err�lg s�mkl �n:: �of l-VKNbtLCHc1yt4qH7FM1Wkz-17228�pf l-VKNbtLCHc1yt4qH7FM1Wkz-17229�qop �r5mnq �s:r<>B<<<<KY_c �t0jsf �ug quote�v0usf �wFr<> �x0#wj �yvx �zy �{g %%index�|0{ff �}7| �~-B}. �f l-VKNbtLCHc1yt4qH7FM1Wkz-17233��f l-VKNbtLCHc1yt4qH7FM1Wkz-17234��� ��5mn� ��:�<>B<<<<KY_c ��0j�f ��0u�f ���<> ��0 �j ���� ��� ��g %%copier��0�ff ��7� ��-B�. ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17238��f l-VKNbtLCHc1yt4qH7FM1Wkz-17239���� ��5mn� ��:�<>B<<<<KY_c ��0j�f ��0u�f ��g %%:random-source-set-fields��F�<> ��0��j ���� ��� ��g t-17222��� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17243��� ��5�;� ��:�<>B<<<<KY_c ��01�f ��o�<>B<W<<<^<e�� ��0l�f ��� ��g if��0��f ��0&�f ��0(�f ���� ��F�<> ��0#�j ����� ��g struct-ref��0��f ���<> ��0 �j ����� ��02�f ��0u�f ��05�j ���� ����� ������ ����� ��F<> ��06�j ��g each��.. ���� ��.����.����.����g %%set-fields��g dummy��g check?��g expr����lX� ��g m-VKNbtLCHc1yt4qH7FM1Wkz-17247���3 ���oooo ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17252��f l-VKNbtLCHc1yt4qH7FM1Wkz-17253��f l-VKNbtLCHc1yt4qH7FM1Wkz-17254��f l-VKNbtLCHc1yt4qH7FM1Wkz-17255��f l-VKNbtLCHc1yt4qH7FM1Wkz-17256������� ��5��� ��� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17249��� ��5>�� ��g t-1083��g t-1085��g t-1084����� ��g m-VKNbtLCHc1yt4qH7FM1Wkz-1086���3 ����� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-1090��f l-VKNbtLCHc1yt4qH7FM1Wkz-1091��f l-VKNbtLCHc1yt4qH7FM1Wkz-1092����� ��5��� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-1080��f l-VKNbtLCHc1yt4qH7FM1Wkz-1081��f l-VKNbtLCHc1yt4qH7FM1Wkz-1082����� ��5_`� ��o�<�B<�<<<��� ��0��f ��F�<� ��0#�j ��05�j ��� ��g map��� ��� ��g list��g set-random-source-state!��g #%set-random-source-state!-procedure��-.. ��g m-VKNbtLCHc1yt4qH7FM1Wkz-17267���3 ��g t-17265��g t-17266���� ���� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17272��f l-VKNbtLCHc1yt4qH7FM1Wkz-17273���� ��5��� ��� ��f l-VKNbtLCHc1yt4qH7FM1Wkz-17269��� ��5>�� ����<�B<<<<KY_c � 01�f �g t-1117�g t-1118� �g m-VKNbtLCHc1yt4qH7FM1Wkz-1119�3 � �f l-VKNbtLCHc1yt4qH7FM1Wkz-1123�f l-VKNbtLCHc1yt4qH7FM1Wkz-1124� � 5 �g setter�NX � f l-VKNbtLCHc1yt4qH7FM1Wkz-1111�f l-VKNbtLCHc1yt4qH7FM1Wkz-1112�f l-VKNbtLCHc1yt4qH7FM1Wkz-1113� �5` �Y �f l-VKNbtLCHc1yt4qH7FM1Wkz-1102�f l-VKNbtLCHc1yt4qH7FM1Wkz-1103� �5G �g field-specs�� �f l-VKNbtLCHc1yt4qH7FM1Wkz-1098�f l-VKNbtLCHc1yt4qH7FM1Wkz-1099� �5G �o�<�B< <<�� �0lf �g val� 0f �! �"0�f �#0&f �$0(f �%$ �&F�<� �'0#&j �(#%' �)g struct-set!�*0)f �+�<� �,0 +j �-*, �.02f �/0uf �00�&j �1/0 �2.1 �3"(-2 �4 !3 �5F<� �60�5j �7g seed->random-state�8g random-state->datum�9g datum->random-state�:g gettimeofday�;e 1000000.0�<g i+j->seed�=g spread�>g random�?g random:uniform�@g real?�Ag <�Bg error�Cf !unit must be real between 0 and 1�C 5 h� ]4 5 4 > "