Well, you should look at how fry quotations work.
Basically if you want a 3 x 2 matrix filled with random-32's:
3 2 [ random-32 ] make-matrix
becomes
3 [ 2 [ random-32 ] replicate ] replicate
On Tue, Feb 5, 2013 at 4:53 PM, Leonard P <[email protected]> wrote:
> Trying to figure this one out ...
>
> : make-matrix ( m n quot -- matrix )
> '[ _ _ replicate ] replicate ; inline
>
>
> On Tue, Feb 5, 2013 at 7:51 PM, John Benediktsson <[email protected]>wrote:
>
>> Repetition is a virtual sequence, if you want to build a sequence using a
>> quotation, you can use "replicate":
>>
>> IN: scratchpad 10 [ random-32 ] replicate .
>> {
>> 2098808057
>> 346443215
>> 3307050344
>> 1882029266
>> 2737379981
>> 4203127047
>> 3606510406
>> 3285608987
>> 3361776623
>> 979717385
>> }
>>
>>
>>
>> On Tue, Feb 5, 2013 at 4:42 PM, Leonard P <[email protected]> wrote:
>>
>>> Nevermind ...
>>>
>>> http://docs.factorcode.org/content/word-repetition%2Csequences.html
>>>
>>>
>>> On Tue, Feb 5, 2013 at 7:40 PM, Leonard P <[email protected]>wrote:
>>>
>>>> Is there a word that takes a sequence, and fills it with copies of an
>>>> object?
>>>>
>>>> : fill ( seq object -- seq ) ... ;
>>>>
>>>>
>>>
>>>
>>> ------------------------------------------------------------------------------
>>> Free Next-Gen Firewall Hardware Offer
>>> Buy your Sophos next-gen firewall before the end March 2013
>>> and get the hardware for free! Learn more.
>>> http://p.sf.net/sfu/sophos-d2d-feb
>>> _______________________________________________
>>> Factor-talk mailing list
>>> [email protected]
>>> https://lists.sourceforge.net/lists/listinfo/factor-talk
>>>
>>>
>>
>>
>> ------------------------------------------------------------------------------
>> Free Next-Gen Firewall Hardware Offer
>> Buy your Sophos next-gen firewall before the end March 2013
>> and get the hardware for free! Learn more.
>> http://p.sf.net/sfu/sophos-d2d-feb
>> _______________________________________________
>> Factor-talk mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/factor-talk
>>
>>
>
>
> ------------------------------------------------------------------------------
> Free Next-Gen Firewall Hardware Offer
> Buy your Sophos next-gen firewall before the end March 2013
> and get the hardware for free! Learn more.
> http://p.sf.net/sfu/sophos-d2d-feb
> _______________________________________________
> Factor-talk mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
>
------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
