Paste: 9 oneliners

Author: missingfaktor
Mode: factor
Date: Tue, 1 Nov 2011 13:26:50
Plain Text |
! 1. Multiple Each Item in a List by 2
10 [1,b] [ 2 * ] map

! 2. Sum a List of Numbers
1000 [1,b] sum

! 3. Verify if Exists in a String
: word-list ( -- seq ) { "Factor" "Concatenative" "Point-free" } ;
: tweet ( -- str ) "This is an example tweet that talks about Factor." ;
word-list [ tweet subseq? ] any?

! 4. Read in a File
"F:/data.txt" utf8 file-contents
"F:/data.txt" utf8 file-lines

! 5. Happy birthday to you!
4 [1,b] [ "Happy birthday " swap 3 = "dear Pradnya!" "to you!" ? append ] map [ . ] each

! 6. Filter list of numbers
{ 49 58 76 82 88 90 } [ 60 < ] partition

! 7. Fetch and Parse an XML web service
"http://search.twitter.com/search.atom?&q=factor" <pull-xml>

! 8. Find minimum (or maximum) in a List
{ 14 35 -7 46 98 } infimum
{ 14 35 -7 46 98 } supremum

! 9. Parallel Processing
data-list [ process-item ] parallel-map

Annotation: osas

Author: hello
Mode: css
Date: Sat, 28 Jul 2012 11:37:24
Plain Text |
hi

New Annotation

Summary:
Author:
Mode:
Body: