81 lines
1.6 KiB
Plaintext
81 lines
1.6 KiB
Plaintext
USING: io math sequences ;
|
|
|
|
"Hello world" print
|
|
10 [ "Hello, Factor" print ] times
|
|
"Hello, " "Factor" append print
|
|
----
|
|
USING: io kernel sequences
|
|
http.client xml xml.data xml.traversal ;
|
|
|
|
"http://factorcode.org" http-get nip string>xml
|
|
"a" deep-tags-named
|
|
[ "href" attr ] map
|
|
[ print ] each
|
|
----
|
|
USING: accessors kernel math math.constants
|
|
math.functions prettyprint ;
|
|
|
|
TUPLE: circle radius ;
|
|
TUPLE: rectangle width height ;
|
|
|
|
GENERIC: area ( shape -- area )
|
|
M: circle area radius>> sq pi * ;
|
|
M: rectangle area [ width>> ] [ height>> ] bi * ;
|
|
|
|
rectangle new 10 >>width 20 >>height area .
|
|
----
|
|
USING: accessors smtp ;
|
|
|
|
<email>
|
|
"john@foobar.com" >>from
|
|
{ "jane@foobar.com" } >>to
|
|
"Up for lunch?" >>subject
|
|
"At Tracy's." >>body
|
|
send-email
|
|
----
|
|
USING: io.files io.encodings.utf8 kernel
|
|
sequences splitting ;
|
|
|
|
"table.txt" utf8 [
|
|
file-lines
|
|
[ "|" split ] map flip [ "|" join ] map
|
|
] 2keep
|
|
set-file-lines
|
|
----
|
|
USING: sequences xml.syntax xml.writer ;
|
|
|
|
{ "three" "blind" "mice" }
|
|
[ [XML <li><-></li> XML] ] map
|
|
[XML <ul><-></ul> XML]
|
|
pprint-xml
|
|
----
|
|
USING: inspector io.files.info
|
|
io.pathnames system tools.files ;
|
|
|
|
home directory.
|
|
home file-system-info free-space>> .
|
|
image-path file-info describe
|
|
----
|
|
USING: io kernel sequences ;
|
|
|
|
4 <iota> [
|
|
"Happy Birthday " write
|
|
2 = "dear NAME" "to You" ? print
|
|
] each
|
|
----
|
|
USING: dice formatting ;
|
|
|
|
ROLL: 2d8+4
|
|
"You do %s points of damage!" printf
|
|
----
|
|
USING: kernel rot13 ;
|
|
|
|
"Hello, world!" rot13
|
|
"Uryyb, jbeyq!" assert=
|
|
----
|
|
USING: ascii tools.test ;
|
|
|
|
{ "HELLO" } [ "HeLlO" >upper ] unit-test
|
|
{ "Hello" } [ "HeLlO" >title ] unit-test
|
|
{ "hello" } [ "HeLlO" >lower ] unit-test
|