[dennou-ruby:000106] Re: NMDArray revised

[gotoken@xxxxxx (GOTO Kentaro)]

In message "[dennou-ruby:000104] NMDArray revised"
    on 99/10/04, Takeshi Horinouchi <horinout@xxxxxx> writes:

>����������ϰ�������ˤʤä�������������μ�����Ǥ��Τǡ����
>�Ƥ����ޤ������� ruby �������Ĥ��Ƥޤ���������򤽤ä��� C �δ�
>�����֤���������С�������˥��֥������Ȥ��뤳�Ȥʤ��˥桼����
>�����ꤷ������٤���������黻��Ԥ���Ȥ������Ȥˤʤ뤫�⤷���
>���� --- �äƿɤ��Ǥ�����(�֥��å������ѡ������ʤ��¤�̵����)

���������������Τ�����������Ƚ�Ǥ��ʤ��Ȥ����ޤ��󤬡��֥���
������Ȥ򤢤��������¤���Хѡ�������Τ⤽��ۤ��񤷤��Ϥ�
���Ǥ��礦���פϥ᥽�åɤ�C�δؿ��δ֤��б��Ȥ�뤫�ɤ����Ǥ���

>̤���������ʣ���Υ��֥������Ȥ˱黻��Ŭ�Ѥ��뤳�ȤǤ����ɤ���
>�������Ȥ���򤢤���ȡ�fortran90 �� a, b �Ȥ���Ʊ���������󤬤���
>���Ȥ���
>
>   where(a>0)
>     a=a*b
>   endwhere

��̣���狼��ʤ��ΤǤ���������äơ�a,b ��������Ȥ����Ruby�Ǥ�

c = []
a.each_indeces{|i| c[i] = a[i] * b[i] if a[i] > 0}
a = c

�ߤ����ʴ����Ǥ���??

-- gotoken