Skip to content

Instantly share code, notes, and snippets.

@toomasv

toomasv/swap*.red

Last active September 19, 2017 18:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save toomasv/149cc50d2161d9f2ee6fba23e27caac4 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save toomasv/149cc50d2161d9f2ee6fba23e27caac4 to your computer and use it in GitHub Desktop.
Download ZIP
Adds `/skip` to `swap`
Raw
swap*.red
Red []
swap*: func [a b /part length /local tmp] [
either part [
tmp: copy/part a length
change/part a copy/part b length length
change/part b tmp length
head a
][
swap a b
]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment