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
gistfile1.txt
!:
|_ [hid=hide ~]
++ poke-foo-args
|= [ost=bone you=ship *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:* [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
=+ a=0
|-
?: =(a 10)
~[leaf/"BOOM! {(scow %ud a)}"]
:_ $(a +(a))
leaf/"bam #{(scow %ud a)}"
==
++ peer
|=(* `+>)
Raw
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
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
|=(* `+>)
--
~
@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