Sign in to follow this  

Unity Scheme - lists and procedure arguments

This topic is 3588 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Recommended Posts

Lets say I have a procedure like this:
(define (some-procedure a b c d) (some-code))
and a list like this:
(list 1 2 3)
How could I pass the elements of the list to the parameters expected by the procedure (ie: a -> 1, b -> 2 and c -> 3)? Or even better - a means to produce a new procedure which takes as arguments any arguments of the original procedure which could not be retrieved from the list (eg, if the list contains fewer arguments than the procedure). I hope I'm making sense . All useful responses greatly appreciated.

Share this post


Link to post
Share on other sites
There's apply, which lets you apply a list of arguments to a function:
(define (func a b c d) ...)

(apply func '(1 2 3 4))
However, the list must contain the correct number of arguments (not more, not less), otherwise you will get a runtime error.


Your "even better" sounds a lot like currying, but it's not something Scheme supports AFAIK. You could start faking it:
(define (curry func n-args)
(define (curry-aux acc)
(lambda args
(if (< (+ (length acc) (length args)) n-args)
(curry-aux (append acc args))
(apply func (append acc args)))))
(curry-aux ()))

(define cfunc (curry func 4))

(func 1 2 3 4) == (cfunc 1 2 3 4) == ((cfunc 1 2) 3 4) == ((((cfunc 1) 2) 3) 4) == ...

apply is compatible with it, so you could apply a partial list of arguments.
(define partially (apply cfunc '(1 2)))

(partially 3 4) == (func 1 2 3 4)

Share this post


Link to post
Share on other sites
Thank you both!

Taking ideas from SamLowry's post and the code for the explicit currying from SiCrane's link, I came up with this, which does exactly what I want it to:
(define (curry fun . args)
(lambda x (apply fun (append args x))))

(define (func a b c d)
(display a) (newline)
(display b) (newline)
(display c) (newline)
(display d) (newline))

(define cfunc (apply curry (cons func '(1 2))))
> (cfunc 3 4)
1
2
3
4


Rating++ for both of you.

[Edited by - issch on February 12, 2008 1:11:09 PM]

Share this post


Link to post
Share on other sites
I think that's a little more complicated than necessary :)


(define (curry fun arglst) ; why '.'?
(lambda x (apply fun (append arglst x))))

(define (func a b c d)
(begin ; Don't you need this?
(display a) (newline)
(display b) (newline)
(display c) (newline)
(display d) (newline)))

(define cfunc (curry func '(1 2))) ; 'apply' is for dealing with things where you
; don't know the length ahead of time. When you do, just pass the arguments.

Share this post


Link to post
Share on other sites
Quote:
Original post by Zahlman
I think that's a little more complicated than necessary :)

*** Source Snippet Removed ***


The . makes a difference:
(define (curry1 fun arglst)
(lambda x (apply fun (append arglst x))))

(define (curry2 fun . arglst)
(lambda x (apply fun (append arglst x))))

; Usage
(define curried1 (curry1 func 1 2 3))
(define curried2 (curry2 func '(1 2 3)))

I personally prefer the former.

And, begin is not necessary: there is an implicit one in defines and lambdas.

Share this post


Link to post
Share on other sites
Quote:
Original post by Zahlman
Ah, of course. (Wasn't there another syntax like (define name (lambda x y (stuff)))?)


(define (func a b c)
body)

==

(define func
(lambda (a b c)
body))


Also, the argument list (in both define and lambda is in some way a pattern, a syntactic shortcut for a "destructuring bind":
...

==

(define (func . args)
(let ((a (car args))
(b (cadr args))
(c (caddr args)))
body))

==

(define func
(lambda args
(let ((a (car args))
(b (cadr args))
(c (caddr args)))
body)))

Share this post


Link to post
Share on other sites
Quote:
Original post by Zahlman
I think that's a little more complicated than necessary :)

*** Source Snippet Removed ***

Do'h! You are, of course, correct. If I remove the . I can simplify the code to this:
(define (curry fun args)
(lambda x (apply fun (append args x))))

(define (func a b c d)
(display a) (newline)
(display b) (newline)
(display c) (newline)
(display d) (newline))

(define cfunc (curry func '(1 2)))

Share this post


Link to post
Share on other sites

This topic is 3588 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

  • Forum Statistics

    • Total Topics
      628633
    • Total Posts
      2983957
  • Similar Content

    • By arash khalaqhdoust
      hey guys i hope you doing all well. last night i released my first game in google app store, i really appreciate you guys  to download it. and share your reviews about it
      the idea of game comes from mini hackgame of Bioshock.
       link of download:
      https://play.google.com/store/apps/details?id=com.RVBinary.piperist
      many thanks
    • By ForgedInteractive
      Who We Are
      We are Forged Interactive, a small team of like-minded game developers with the sole purpose of making games we love! Currently, we're progressing very quickly with our first project and there are plenty of opportunities and work for new interested programmers. With this project, our development platform is Unity 5.5.2 and C# as our behavioral language. Since this project is our first release, the game itself is a smaller project though progress is moving quickly. We are looking to finalize the current project and get started on future projects in the near future and are expanding our team to do so.
       
      Who We Are Looking For:
      Programmer Level Designer  
      About the Game
      Ours is the tale of two siblings, thrown into a world of chaos. Living in the shadow of their parents' heroic deeds and their Uncle's colorful military career, Finn and Atia are about to become the next force to shape our world. How will you rise through the ranks of Hereilla and what will be your legacy? Once defeated your enemies turn coat and join you in your adventures. Players can enjoy a range of troops and abilities based on their gameplay style which become more important as maps introduce more challenging terrain, enemies and bosses. Strong orc knights, dangerous shamans, and even a dragon are out on the prowl. Knowing when to fight and when to run, and how to manage your army is essential. Your actions alone decide the fate of this world.
       
      Previous Work by Team
      Although we are working towards our first game as Forged Interactive, our team members themselves have worked on titles including and not limited to:
      Final Fantasy Kingsglaive FIFA 2017 Xcom 2 Civilization  
      What do we expect?
      Reference work or portfolio. Examples what have you already done and what projects you have worked on academic or otherwise. The ability to commit to the project on a regular basis. If you are going on a two-week trip, we don't mind, but it would be good if you could commit 10+ hours to the project each week. Willingness to work with a royalty based compensation model, you will be paid when the game launches. Openness to learning new tools and techniques
       
      What can we offer?
      Continuous support and availability from our side. You have the ability to give design input, and creative say in the development of the game. Shown in credits on websites, in-game and more. Insight and contacts from within the Industry.
       
      Contact
      If you are interested in knowing more or joining, please email or PM us on Skype. A member of our management team will reply to you within 48 hours.
       
      E-mail: Recruitment@ForgedInteractive.com
      Skype: ForgedInteractive
       
      Regards,
      David, Colin and Joseph
       
      Follow us on:
      Facebook: https://www.facebook.com/ForgedInteractive/
      Twitter: @ForgedInteract
      Youtube: https://www.youtube.com/channel/UCpK3zhq5ToOeDpdI0Eik-Ug?view_as=subscriber
      Reddit: www.reddit.com/user/Forged_Interactive

    • By dell96
      I'm trying to make my first project but I'm stuck i don't know how to make my crate to start to spawn again when i hit the start button after i die.
      hoping someone can help!!!
      Crate.cs
      CrateSpawn.cs
      Cratework.cs
      GameController.cs
      GameManager.cs
    • By Killah Rasta
      Hi!

      I have a complete idea about a 2D top-down, old-school-GTA like gangster game, that have an open world, and where you can build your black empire. I wan't to make it in Unity, but I'm a hobby developer without papers, so I'm open for ideas. I started to build it on the sources from youtube, but actually I would like to contact with a coder and an artist, to build and draw the game together. I don't have ready funds for it, but wan't to make some money by a start-up website, or something like that. I wan't to have two man, that I can trust, share and make a working pre-stage game, that could get some money on a project page and then go on toward to publish!

      Coding jobs: pathfinding (or NavMesh in 3D), AI, cover system, animation and other game mechanisms like fighting, missions, etc.
      Art jobs: buildings, structures, objects inside-outside, characters.
    • By Strifexxx
      Hi guys, check out our new game about sticks. Feedback welcome!
      Download on Google Play: https://play.google.com/store/apps/details?id=com.stickman.destruction.annihilation3
      Youtube: https://www.youtube.com/watch?v=sKF-wBcgo2E
      Stickman Destruction 3 Annihilation  is a sequel to the legendary game of survival, where to make incredible tricks, driving different transport and getting into different crash! The game is made in the best traditions of simulator games with ragdoll physics elements. Make incredible jumps and tricks and destroy the enemy! Your task is make the finish alive or dead!





      Website: http://strifexxx.wixsite.com/cyberpony
      Facebook: https://www.facebook.com/groups/577850349043463/
      VK: https://vk.com/club122273704
  • Popular Now