Skip to content

Instantly share code, notes, and snippets.

@comboy

comboy/1.mars

Last active August 29, 2015 14:11
Show Gist options
  • Save comboy/74d6d87fc76a30fc8455 to your computer and use it in GitHub Desktop.
Save comboy/74d6d87fc76a30fc8455 to your computer and use it in GitHub Desktop.
Download ZIP
baby steps
Raw
1.mars
!:
|_ [hid=hide ~]
++ poke-mars-args
|= [ost=bone you=ship *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:- [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
~[leaf/"hello mars!"]
++ peer
|=(* `+>)
--
Raw
2.planet
:: display "hello $ARG!"
:: :planet "foo"
!:
|_ [hid=hide ~]
++ poke-planet-args
|= [ost=bone you=ship planet=tape *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:- [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
~[leaf/"hello {planet}!"]
++ peer
|=(* `+>)
--
~
Raw
3.boom
:: counts douwn and boom!
!:
|_ [hid=hide ~]
++ poke-boom-args
|= [ost=bone you=ship *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:* [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
%- flop ^- (list tank) %- limo
=+ a=10
|-
?: =(a 0)
~[leaf/"BOOM!!!"]
:_ $(a (dec a))
leaf/"{(trip ?:(=((mod a 2) 0) 'tick' 'tock'))} - {(scow %ud a)}"
==
++ peer
|=(* `+>)
--
@fsteinel
Copy link

1.mars with 2+2

!:
|_ [hid=hide ~]
++ poke-four-args
|= [ost=bone you=ship *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:- [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
~[leaf/"hello mars! {<(add 2 2)>}"]
++ peer
|=(* `+>)
--

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment