Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 3.136.236.173
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-27.go
GOOF----LE-8-2.0J]H4h�*]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-27�	�		gfilenameS�	
fsrfi/srfi-27.scm�	gimportsS�	gsrfi-9�	
�	
�	�	gexportsS�	grandom-integer�	grandom-real�	gdefault-random-source�	gmake-random-source�	grandom-source?�	grandom-source-state-ref�	grandom-source-state-set!�	grandom-source-randomize!�	grandom-source-pseudo-randomize!�	grandom-source-make-integers�	grandom-source-make-reals�	�	gset-current-module�	�	�	 gcond-expand-provide�	!gcurrent-module�	"�	#g:random-source�	$g%%make-random-source-procedure�	%gmake-syntax-transformer�	&%�	'%�	(g%make-random-source�	)gmacro�	*g$sc-dispatch�	+*�	,*�	-g_�	.gany�	/-.�	0g
syntax-object�	1glambda�	2gm-46961e50f6-4�	3gtop�	423�	5gribcage�	6gt-46961e50f6-3�	76�	84�	9fl-46961e50f6-9�	:9�	;578:�	<5�	=gx�	>=�	?fl-46961e50f6-6�	@?�	A5>8@�	Bgshift�	Cg	proc-name�	Dgargs�	ECD�	F3�	GFF�	Hfl-1e8ba8b5a-2ba�	Ifl-1e8ba8b5a-2bb�	JHI�	K5EGJ�	Lgkey�	Mgvalue�	Ngname�	Ogformals�	Pgbody�	QLMNOP�	RFFFFF�	Sfl-1e8ba8b5a-2ad�	Tfl-1e8ba8b5a-2ae�	Ufl-1e8ba8b5a-2af�	Vfl-1e8ba8b5a-2b0�	Wfl-1e8ba8b5a-2b1�	XSTUVW�	Y5QRX�	Zgmake-procedure-name�	[Z�	\F�	]fl-1e8ba8b5a-29d�	^]�	_5[\^�	`F�	afl-1e8ba8b5a-29c�	ba�	c5>`b�	d4;<AB<<<<KY_c
�	eghygiene�	fe�	g01df�	hgstate�	iF;<A�	je�	k0hij�	lk�	mgmake-struct�	ngm-46961e50f6-1�	on3�	pgt-1e8ba8b5a-38d�	qgt-1e8ba8b5a-38c�	rgt-1e8ba8b5a-38b�	spqr�	tgm-1e8ba8b5a-38e�	ut3�	vuuu�	wfl-1e8ba8b5a-392�	xfl-1e8ba8b5a-393�	yfl-1e8ba8b5a-394�	zwxy�	{5svz�	|g	ctor-args�	}|�	~fl-1e8ba8b5a-37a�	~��5}`��gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������5�G���gform��g	type-name��gconstructor-spec��gfield-names��������FFFF��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������5�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������FFFFFFFF��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������5�����fl-1e8ba8b5a-334�����5>`���o;<AB<{<<<��<�����0m�f��0#ij��0
�f�����k��gl���geach-any��-����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���F<A��0$�j��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpw��gdefault-record-printer��
���
���h��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%random-source?-procedure��gm-46961e50f6-11���3��gt-46961e50f6-10��������fl-46961e50f6-16�����5�����fl-46961e50f6-13�����5>������<�B<<<<KY_c
��01�f��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���3�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������5�����g	copier-id�����fl-1e8ba8b5a-476�����5�`���g	ctor-name�����fl-1e8ba8b5a-46e�����5�`������fl-1e8ba8b5a-46c�����5�`���glayout����fl-1e8ba8b5a-46a��5�`�g
immutable?��fl-1e8ba8b5a-468��5`�gfield-count�	�
fl-1e8ba8b5a-466�
�5	`�
g
getter-ids�
�fl-1e8ba8b5a-463��5`�g	field-ids��fl-1e8ba8b5a-460��5`�gpredicate-name�g
field-spec�����FFFFFF�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457� fl-1e8ba8b5a-458�! �"5!�#o�<�B<�<<<<�<�<�<<<<<"���$0�#f�%$�&gand�'0&#f�(gstruct?�)0(#f�*)$�+geq?�,0+#f�-g
struct-vtable�.0-#f�/.$�0F�<��10#0j�2,/1�3'*2�4�%3�5F<��60�5j�7gthrow-bad-struct�8
7�9
7�:grandom-source-state�;g%random-source-state-procedure�<gfree-id�=g
%%on-error�>gm-46961e50f6-1d�?>3�@?�Afl-46961e50f6-1f�BA�C5>@B�D?<CB<<<<KY_c�E0=Df�F<E�GF.�Hg%%type�Igt-1e8ba8b5a-3a5�Jgt-1e8ba8b5a-3a6�Kgt-1e8ba8b5a-3a7�Lgt-1e8ba8b5a-3a8�Mgt-1e8ba8b5a-3a9�Ngt-1e8ba8b5a-3aa�Ogt-1e8ba8b5a-3ab�PIJKLMNO�Qgm-1e8ba8b5a-3ac�RQ3�SRRRRRRR�Tfl-1e8ba8b5a-3b0�Ufl-1e8ba8b5a-3b1�Vfl-1e8ba8b5a-3b2�Wfl-1e8ba8b5a-3b3�Xfl-1e8ba8b5a-3b4�Yfl-1e8ba8b5a-3b5�Zfl-1e8ba8b5a-3b6�[TUVWXYZ�\5PS[�]ggetter�^gindex�_]^�`fl-1e8ba8b5a-3a3�afl-1e8ba8b5a-3a4�b`a�c5_Gb�d�
��eFFF�ffl-1e8ba8b5a-39e�gfl-1e8ba8b5a-39f�hfl-1e8ba8b5a-3a0�ifgh�j5dei�ko<CB<\<<<c<j���l0Hkf�m<l�n-Gm.�ogck�pgerr�qgs�rpq�s??�tfl-46961e50f6-22�ufl-46961e50f6-23�vtu�w5rsv�x?w<CB<<<<KY_c
�y0oxf�zgquote�{0zxf�|Fw<C�}0#|j�~{}�~��g%%index��0�kf��<���-G�.��fl-46961e50f6-27��fl-46961e50f6-28������5rs���?�<CB<<<<KY_c
��0o�f��0z�f���<C��0
�j���������g%%copier��0�kf��<���-G�.��fl-46961e50f6-2c��fl-46961e50f6-2d������5rs���?�<CB<<<<KY_c
��0o�f��0z�f��g%%:random-source-set-fields��F�<C��0��j���������gt-46961e50f6-1c�����fl-46961e50f6-31�����5�@���?�<CB<<<<KY_c
��01�f��o�<CB<\<<<c<j����0q�f�����gif��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��geach��..������.����.Œ��.Ì��g%%set-fields��gdummy��gcheck?��gexpr����q]���gm-46961e50f6-38���3���oooo��fl-46961e50f6-3d��fl-46961e50f6-3e��fl-46961e50f6-3f��fl-46961e50f6-40��fl-46961e50f6-41���������5��������fl-46961e50f6-3a�����5>����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���3�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������5�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������5de���o�<�B<�<<<���
��0��f��F�<���0#�j��0:�j�����gmap��������glist��gset-random-source-state!��g#%set-random-source-state!-procedure��-..��gm-46961e50f6-4c���3��gt-46961e50f6-4a��gt-46961e50f6-4b����������fl-46961e50f6-51��fl-46961e50f6-52������5������fl-46961e50f6-4e��5>���<B<<<<KY_c
�01f�gt-1e8ba8b5a-3e6�gt-1e8ba8b5a-3e7��	gm-1e8ba8b5a-3e8�
	3�

�fl-1e8ba8b5a-3ec�
fl-1e8ba8b5a-3ed�
�5�gsetter�N]�fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2��5e�^�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��5G�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4� �!5G �"o�<B<<<!���#0q"f�$gval�%0$"f�&#%�'0�"f�(0+"f�)0-"f�*)#�+F�<�,0#+j�-(*,�.gstruct-set!�/0."f�0�<�10
0j�2/#1%�307"f�40z"f�50�+j�645�73#6�8'-27�9&8�:F<�;0�:j�<gseed->random-state�=grandom-state->datum�>gdatum->random-state�?ggettimeofday�@e	1000000.0�Ag	i+j->seed�Bgspread�Cgrandom�Dgrandom:uniform�Egreal?�Fgerror�Gf!unit must be real between 0 and 1�C5h�]4	
54>"G4 i4!i5">"G#h�]�Cygstate
		
gfilenamefsrfi/srfi-27.scm�
	(
��		
gnameg%%make-random-source-procedure�C$R4'(),/�h6]C.gt-46961e50f6-3
		
		
C��(�hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5(R���#ƨ4�#>"G	̖$i�#R#hz]�$��CCrgobj
		gfilenamefsrfi/srfi-27.scm�
	(
��		gnameg%random-source?-procedure�C�R4'),/4h7]C/gt-46961e50f6-10
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C6h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5R#9:h}]�&
�C6ugs
		gfilenamefsrfi/srfi-27.scm�
	(
��		gnameg%random-source-state-procedure�C;R4':),nyh:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C/�h7]C/gt-46961e50f6-1c
		
		
C��:�hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-27.scm�
	(
��	�C5:R4'�),������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-27.scm�
	(
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R#9�h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-27.scm�
	(
��			gnameg#%set-random-source-state!-procedure�C�R4'�),�9hT]CLgt-46961e50f6-4a
		gt-46961e50f6-4b					C����hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C;h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5�R<#h�]4
5�C}gstate
		gfilenamefsrfi/srfi-27.scm�
	-
��		.	��		.	��		
gnamegmake-random-source�CR=#9:h �]�&
�"	456~gs
		 gfilenamefsrfi/srfi-27.scm�
	0
��		1	��	 	1	��		 gnamegrandom-source-state-ref�CR>#9�h(�]
45�&
�C6�gs
		#gstate		#gval				#gfilenamefsrfi/srfi-27.scm�
	3
��		4	��			4	��		#	gnamegrandom-source-state-set!�CR?<@#9�h8�]454����5�&
�C6�gs
		2gtime		2gval			2gfilenamefsrfi/srfi-27.scm�
	6
��		7	��		7	��	
	8	 ��		9	'��		9	2��		9	$��		9	7��		9	!��		8	 ��		8	��		2gnamegrandom-source-randomize!�CR<A#9�h0�]4455�&
�C6�gs
		*gi		*gj			*gval			*gfilenamefsrfi/srfi-27.scm�
	;
��		<	��		<	2��		<	��		<	��		*	gnamegrandom-source-pseudo-randomize!�CRBh�]4	5�4	5�C�gi
		gj		gfilenamefsrfi/srfi-27.scm�
	>
��		?	��	
	?	
��		@	
��		?	��			gnameg	i+j->seed�CARh@�]")
�$C���	���"���

"����gn
		=gamount		=gresult			/gn			/gshift			/gfilenamefsrfi/srfi-27.scm�
	B
��		C	��			D	��		D	��		G	��		G	��		F	��	 	H	��	%	I	��	/	F	��	/	C	��		=	gnamegspread�CBRC#9:h(c]L�&L
�"	4L56[gn
		"gfilenamefsrfi/srfi-27.scm�
	L	��			M	��	"	M	��		"Chz]OCrgs
		
gfilenamefsrfi/srfi-27.scm�
	K
��		
gnamegrandom-source-make-integers�CRD#9:h@�]"04L�&L
�"	4L55
�$"���C"����gx
	%	6gfilenamefsrfi/srfi-27.scm�
	R	��		S	��		T	��		T	"��	%	T	��	%	T		��	*	U	��	/	U	��	3	V	��	6	S	��		:
CEFGh`�)3OC]
45$
�$�""$"4>"G6�gs
			gs
		]gunit		]gt		4	Wgfilenamefsrfi/srfi-27.scm�
	P	��		Y	��		Y		��	"	Y	��	4	Y	��	A	Z		��	E	Z	��	L	Z		��	]	[	��
					]	gnamegrandom-source-make-reals�CR4i5R4ii5R4ii5RC�gm
		,grtd
~�gfilenamefsrfi/srfi-27.scm�		
��	-	&
��	2	&	��	:	&	&��	?	&
���	(
���	-
��q	0
��f	3
���	6
���	;
���	>
���	B
��	K
���	O
���	]	���	]
���	^	���	^
���	_	���	_
��	�
C6
© 2025 GrazzMean