Paste: Comical IRC posts

Author: Rayne
Mode: text
Date: Sun, 15 Mar 2009 02:13:32
Plain Text |
[21:10]	<Raynes>	Someone should put a pastebin in the topic.
[21:10]	<ReDSpideR>	lol probly
[21:11]	<Dork_Rage->	yes, please use http://pastebin.com
[21:11]	<Raynes>	or paste.pocoo.org
[21:11]	<Raynes>	or pastebin.cz
[21:11]	<Raynes>	or paste.factorcode.org or anything else but this channel.
[21:12]	<Raynes>	We can has options? Yes we has.

Annotation: Simple caclulator

Author: Rayne
Mode: factor
Date: Sun, 15 Mar 2009 03:15:40
Plain Text |
! Copyright (C) 2009 Anthony Simpson.
! See http://factorcode.org/license.txt for BSD license.
USING: io math kernel math.parser.private math.parser present ;
IN: testing

: get-numbers ( -- n n str ) readln string>number readln string>number readln ;
: print-numbers ( n n str -- n )
    dup "+" = [
        drop +
    ] [
        dup "-" = [
            drop -
        ] [
            dup "*" = [
                drop *
            ] [ drop / ] if
        ] if
    ] if ;
: letsjustcallthismain ( -- ) get-numbers print-numbers present print ;

MAIN: letsjustcallthismain

Annotation: Fixed indentation

Author: Rayne
Mode: factor
Date: Sun, 15 Mar 2009 03:19:06
Plain Text |
! Copyright (C) 2009 Anthony Simpson.
! See http://factorcode.org/license.txt for BSD license.
USING: io math kernel math.parser.private math.parser present ;
IN: testing

: get-numbers ( -- n n str ) readln string>number readln string>number readln ;
: print-numbers ( n n str -- n )
    dup "+" = [
        drop +
    ] [
        dup "-" = [
            drop -
        ] [
            dup "*" = [ drop * ] [ drop / ] if
        ] if
    ] if ;
: letsjustcallthismain ( -- ) get-numbers print-numbers present print ;

MAIN: letsjustcallthismain

New Annotation

Summary:
Author:
Mode:
Body: