10nin/mytimes.scm

Created July 11, 2018 12:28

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/10nin/5e250f31508545eb6e6ddc55fd2cec6e.js"></script>
Save 10nin/5e250f31508545eb6e6ddc55fd2cec6e to your computer and use it in GitHub Desktop.

Download ZIP

scheme script for (mytimes 5 'foo) → (foo foo foo foo foo) I want more good solution.

Raw

mytimes.scm

	(define (mytimes n val)
	(if (= n 1) (list val)
	(append (list val) (mytimes (- n 1) val))))

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