����JFIF���������
1#@!#!123s
D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
Filename :
srfi-27.go
back
Copy
GOOF----LE-8-2.0J������]H�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-46961e50f6-4� 3g��top� 423�� 5g��ribcage� 6g��t-46961e50f6-3� 76�� 84�� 9f��l-46961e50f6-9� :9�� ;578:�� <5�� =g��x� >=�� ?f��l-46961e50f6-6� @?�� A5>8@�� Bg��shift� Cg�� proc-name� Dg��args� ECD�� F3�� GFF�� Hf��l-1e8ba8b5a-2ba� If��l-1e8ba8b5a-2bb� JHI�� K5EGJ�� Lg��key� Mg��value� Ng��name� Og��formals� Pg��body� QLMNOP�� RFFFFF�� Sf��l-1e8ba8b5a-2ad� Tf��l-1e8ba8b5a-2ae� Uf��l-1e8ba8b5a-2af� Vf��l-1e8ba8b5a-2b0� Wf��l-1e8ba8b5a-2b1� XSTUVW�� Y5QRX�� Zg��make-procedure-name� [Z�� \F�� ]f��l-1e8ba8b5a-29d� ^]�� _5[\^�� `F�� af��l-1e8ba8b5a-29c� ba�� c5>`b�� d4;<AB<<<<KY_c� � eg��hygiene� fe�� g01df�� hg��state� iF;<A�� je�� k0hij�� lk�� mg��make-struct� ng��m-46961e50f6-1� on3�� pg��t-1e8ba8b5a-38d� qg��t-1e8ba8b5a-38c� rg��t-1e8ba8b5a-38b� spqr�� tg��m-1e8ba8b5a-38e� ut3�� vuuu�� wf��l-1e8ba8b5a-392� xf��l-1e8ba8b5a-393� yf��l-1e8ba8b5a-394� zwxy�� {5svz�� |g�� ctor-args� }|�� ~f��l-1e8ba8b5a-37a� ~����5}`����g��ctor���g��field���������f��l-1e8ba8b5a-376���f��l-1e8ba8b5a-377���������5�G�����g��form���g�� type-name���g��constructor-spec���g��field-names�����������FFFF����f��l-1e8ba8b5a-36b���f��l-1e8ba8b5a-36c���f��l-1e8ba8b5a-36d���f��l-1e8ba8b5a-36e�����������5�������g�� record-layout���g��functional-setters���g��setters���g��copier���g��getters���g��constructor���g��getter-identifiers���g��field-identifiers���������������FFFFFFFF����f��l-1e8ba8b5a-343���f��l-1e8ba8b5a-341���f��l-1e8ba8b5a-33f���f��l-1e8ba8b5a-33d���f��l-1e8ba8b5a-33b���f��l-1e8ba8b5a-339���f��l-1e8ba8b5a-337���f��l-1e8ba8b5a-335���������������5�������f��l-1e8ba8b5a-334��������5>`�����o;<AB<{<<<��<�������0m�f����0#ij����0 �f�������k����gl�����g��each-any���-�����g��syntax-violation��� ����� �����f��Wrong number of arguments���g��identifier?��� ����� �����F<A����0$�j��������������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-46961e50f6-11����3����g��t-46961e50f6-10�������������f��l-46961e50f6-16��������5�������f��l-46961e50f6-13��������5>��������<�B<<<<KY_c� ���01�f����g��obj���g��t-1e8ba8b5a-47e���g��t-1e8ba8b5a-478���g��t-1e8ba8b5a-479���g��t-1e8ba8b5a-47a���g��t-1e8ba8b5a-47d���g��t-1e8ba8b5a-47c���g��t-1e8ba8b5a-47b��������������g��m-1e8ba8b5a-47f����3���������������f��l-1e8ba8b5a-483���f��l-1e8ba8b5a-484���f��l-1e8ba8b5a-485���f��l-1e8ba8b5a-486���f��l-1e8ba8b5a-487���f��l-1e8ba8b5a-488���f��l-1e8ba8b5a-489��������������5�������g�� copier-id��������f��l-1e8ba8b5a-476��������5�`�����g�� ctor-name��������f��l-1e8ba8b5a-46e��������5�`����������f��l-1e8ba8b5a-46c��������5�`�����g��layout�������f��l-1e8ba8b5a-46a����5�`��g�� immutable?���f��l-1e8ba8b5a-468���5`��g��field-count� �� f��l-1e8ba8b5a-466� ��5 `�� g�� getter-ids� ��f��l-1e8ba8b5a-463���5`��g�� field-ids���f��l-1e8ba8b5a-460���5`��g��predicate-name�g�� field-spec������FFFFFF��f��l-1e8ba8b5a-453�f��l-1e8ba8b5a-454�f��l-1e8ba8b5a-455�f��l-1e8ba8b5a-456�f��l-1e8ba8b5a-457� f��l-1e8ba8b5a-458�! ��"5!��#o�<�B<�<<<<�<�<�<<<<<"����$0�#f��%$��&g��and�'0&#f��(g��struct?�)0(#f��*)$��+g��eq?�,0+#f��-g�� struct-vtable�.0-#f��/.$��0F�<���10#0j��2,/1��3'*2��4�%3��5F<���60�5j��7g��throw-bad-struct�8 7��9 7��:g��random-source-state�;g��%random-source-state-procedure�<g��free-id�=g�� %%on-error�>g��m-46961e50f6-1d�?>3��@?��Af��l-46961e50f6-1f�BA��C5>@B��D?<CB<<<<KY_c��E0=Df��F<E��GF.��Hg��%%type�Ig��t-1e8ba8b5a-3a5�Jg��t-1e8ba8b5a-3a6�Kg��t-1e8ba8b5a-3a7�Lg��t-1e8ba8b5a-3a8�Mg��t-1e8ba8b5a-3a9�Ng��t-1e8ba8b5a-3aa�Og��t-1e8ba8b5a-3ab�PIJKLMNO��Qg��m-1e8ba8b5a-3ac�RQ3��SRRRRRRR��Tf��l-1e8ba8b5a-3b0�Uf��l-1e8ba8b5a-3b1�Vf��l-1e8ba8b5a-3b2�Wf��l-1e8ba8b5a-3b3�Xf��l-1e8ba8b5a-3b4�Yf��l-1e8ba8b5a-3b5�Zf��l-1e8ba8b5a-3b6�[TUVWXYZ��\5PS[��]g��getter�^g��index�_]^��`f��l-1e8ba8b5a-3a3�af��l-1e8ba8b5a-3a4�b`a��c5_Gb��d� ���eFFF��ff��l-1e8ba8b5a-39e�gf��l-1e8ba8b5a-39f�hf��l-1e8ba8b5a-3a0�ifgh��j5dei��ko<CB<\<<<c<j����l0Hkf��m<l��n-Gm.��og��ck�pg��err�qg��s�rpq��s??��tf��l-46961e50f6-22�uf��l-46961e50f6-23�vtu��w5rsv��x?w<CB<<<<KY_c� �y0oxf��zg��quote�{0zxf��|Fw<C��}0#|j��~{}��~���g��%%index��0�kf���<����-G�.���f��l-46961e50f6-27��f��l-46961e50f6-28�������5rs����?�<CB<<<<KY_c� ��0o�f���0z�f����<C���0 �j������������g��%%copier��0�kf���<����-G�.���f��l-46961e50f6-2c��f��l-46961e50f6-2d�������5rs����?�<CB<<<<KY_c� ��0o�f���0z�f���g��%%:random-source-set-fields��F�<C���0��j������������g��t-46961e50f6-1c������f��l-46961e50f6-31������5�@����?�<CB<<<<KY_c� ��01�f���o�<CB<\<<<c<j�����0q�f�������g��if��0��f���0+�f���0-�f��������F�<C���0#�j���������g�� struct-ref��0��f����<C���0 �j���������07�f���0z�f���0:�j���������������������������F<C���0;�j���g��each��..��������.����.��.Ì��g��%%set-fields��g��dummy��g��check?��g��expr����q]����g��m-46961e50f6-38���3����oooo���f��l-46961e50f6-3d��f��l-46961e50f6-3e��f��l-46961e50f6-3f��f��l-46961e50f6-40��f��l-46961e50f6-41����������5����������f��l-46961e50f6-3a������5>�����g��t-1e8ba8b5a-3c4��g��t-1e8ba8b5a-3c6��g��t-1e8ba8b5a-3c5��������g��m-1e8ba8b5a-3c7���3���������f��l-1e8ba8b5a-3cb��f��l-1e8ba8b5a-3cc��f��l-1e8ba8b5a-3cd��������5������f��l-1e8ba8b5a-3c1��f��l-1e8ba8b5a-3c2��f��l-1e8ba8b5a-3c3��������5de����o�<�B<�<<<���� ��0��f���F�<����0#�j���0:�j�������g��map����������g��list��g��set-random-source-state!��g��#%set-random-source-state!-procedure��-..���g��m-46961e50f6-4c���3���g��t-46961e50f6-4a��g��t-46961e50f6-4b������������f��l-46961e50f6-51��f��l-46961e50f6-52�������5���������f��l-46961e50f6-4e���5>�����<B<<<<KY_c� �01f��g��t-1e8ba8b5a-3e6�g��t-1e8ba8b5a-3e7��� g��m-1e8ba8b5a-3e8� 3�� ��f��l-1e8ba8b5a-3ec� f��l-1e8ba8b5a-3ed� ��5��g��setter�N]��f��l-1e8ba8b5a-3e0�f��l-1e8ba8b5a-3e1�f��l-1e8ba8b5a-3e2���5e��^��f��l-1e8ba8b5a-3d7�f��l-1e8ba8b5a-3d8���5G��g��field-specs����f��l-1e8ba8b5a-3d3�f��l-1e8ba8b5a-3d4� ��!5G ��"o�<B<<<!����#0q"f��$g��val�%0$"f��&#%��'0�"f��(0+"f��)0-"f��*)#��+F�<��,0#+j��-(*,��.g��struct-set!�/0."f��0�<��10 0j��2/#1%��307"f��40z"f��50�+j��645��73#6��8'-27��9&8��:F<��;0�:j��<g��seed->random-state�=g��random-state->datum�>g��datum->random-state�?g��gettimeofday�@e�� 1000000.0�Ag�� i+j->seed�Bg��spread�Cg��random�Dg��random:uniform�Eg��real?�Fg��error�Gf��!unit must be real between 0 and 1�C�5�������h�����]4 5�4�>��"��G���4 i4!i5�">��"��G��#���h�������]���C������y�������g��state ��g��filenamef��srfi/srfi-27.scm� ( ��� ��g��nameg��%%make-random-source-procedure��C$R4'(),/���h���6���]��C������.�������g��t-46961e50f6-3 �� ���C��(�������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-27.scm� ( ��� ���C-������h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm� ( ��� ���C��������h������]�C���������� ���C����������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��|�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-27.scm� ( ��� n���C5(R���#ƨ��4��#>��"��G��� ̖$i���#R#�h���z���]��$�����CC������r�������g��obj ��g��filenamef��srfi/srfi-27.scm� ( ��� ��g��nameg��%random-source?-procedure��C�R4'),/4��������h���7���]��C������/�������g��t-46961e50f6-10 �� ���C��������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-27.scm� ( ��� ���C-������h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm� ( ��� ���C6������h������]�C���������� ���C����������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��|�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-27.scm� ( ��� n���C5R#9:���h���}���]��&��� �C�6u�������g��s ��g��filenamef��srfi/srfi-27.scm� ( ��� ��g��nameg��%random-source-state-procedure��C;R4':),ny�������h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C/������h���7���]��C������/�������g��t-46961e50f6-1c �� ���C��:�����h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-27.scm� ( ��� ���C-������h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm� ( ��� ���C�������h������]�C���������� ���C����������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-27.scm� ( ��� �����C5:R4'�),�������h ���v���]45�����C���n�������g��dummy �g��check? �g��s �g��getter �g��expr �� ���C�����h(�������] 4�5$��@�6��������������g��x "�g��tmp "��g��filenamef��srfi/srfi-27.scm� ( ��� "��g�� macro-typeg��syntax-rules�g��patternsg��check?g��sg��getterg��expr�g��...���C5�R#9���������h �������]��&��� �C�6��������������g��s �g��val ��g��filenamef��srfi/srfi-27.scm� ( ��� ��g��nameg��#%set-random-source-state!-procedure��C�R4'�),�9����h���T���]��C����L�������g��t-46961e50f6-4a �g��t-46961e50f6-4b �� ���C�����������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-27.scm� ( ��� ���C-������h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm� ( ��� ���C;������h������]�C���������� ���C����������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��|�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-27.scm� ( ��� n���C5�R<#�����h�������]4 5����C������}�������g��state ��g��filenamef��srfi/srfi-27.scm� - �� . �� . ��� ��g��nameg��make-random-source��CR=#9:�h �������]��&��� �"�� 4�56~�������g��s ��g��filenamef��srfi/srfi-27.scm� 0 �� 1 �� 1 ��� ��g��nameg��random-source-state-ref��CR>#9���������h(�������] 45��&��� �C�6�������������g��s #�g��state #�g��val #��g��filenamef��srfi/srfi-27.scm� 3 �� 4 �� 4 ��� # ��g��nameg��random-source-state-set!��CR?<@#9������h8�������]45�4����5��&��� �C�6��������������g��s 2�g��time 2�g��val 2��g��filenamef��srfi/srfi-27.scm� 6 �� 7 �� 7 �� 8 �� 9 '�� 9 2�� 9 $�� 9 7�� 9 !�� 8 �� 8 ��� 2��g��nameg��random-source-randomize!��CR<A#9���h0�������]4455��&��� �C�6��������������g��s *�g��i *�g��j *�g��val *��g��filenamef��srfi/srfi-27.scm� ; �� < �� < 2�� < �� < ��� * ��g��nameg��random-source-pseudo-randomize!��CRB�h�������]4� 5�4 5�C��������g��i �g��j ��g��filenamef��srfi/srfi-27.scm� > �� ? �� ? �� @ �� ? ��� ��g��nameg�� i+j->seed��CAR���h@�������]"��) �$��C��� ���"��� � "��������������g��n =�g��amount =�g��result /�g��n /�g��shift /��g��filenamef��srfi/srfi-27.scm� B �� C �� D �� D �� G �� G �� F �� H �� % I �� / F �� / C ��� = ��g��nameg��spread��CBRC#9:�����h(���c���]�L��&��L� �"�� 4L�56������[�������g��n "��g��filenamef��srfi/srfi-27.scm� L �� M �� " M ��� "���C��h���z���]�O�C������r�������g��s ��g��filenamef��srfi/srfi-27.scm� K ��� ��g��nameg��random-source-make-integers��CRD#9:���h@�������]"��04L��&��L� �"�� 4L�55�� �$��"����C"�����������������g��x % 6��g��filenamef��srfi/srfi-27.scm� R �� S �� T �� T "�� % T �� % T �� * U �� / U �� 3 V �� 6 S ��� : ���CEFG�������h`�������)���3��O�C] 45$�� �$���"��"��$��"��4>��"��G���6�����������g��s �g��s ]�g��unit ]�g��t 4 W��g��filenamef��srfi/srfi-27.scm� P �� Y �� Y �� " Y �� 4 Y �� A Z �� E Z �� L Z �� ] [ ��� � ] ��g��nameg��random-source-make-reals��CR4i5�R4ii5R4ii5RC��������������g��m ,�g��rtd ~���g��filenamef��srfi/srfi-27.scm� �� - & �� 2 & �� : & &�� ? & ���� ( ��� - ��q 0 ��f 3 ��� 6 ��� ; ��� > ��� B �� K ��� O ��� ] ��� ] ��� ^ ��� ^ ��� _ ��� _ ��� � ���C6�