From 07127bdf5cb6a3e1b8c30d74b22d98c38622dd7f Mon Sep 17 00:00:00 2001 From: elioat Date: Sun, 4 Dec 2022 10:35:32 -0500 Subject: * --- src/tmp.rkt | 62 ++++++++++++++++++++++++++++++------------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) (limited to 'src') diff --git a/src/tmp.rkt b/src/tmp.rkt index f63055d..b46a1aa 100644 --- a/src/tmp.rkt +++ b/src/tmp.rkt @@ -3,32 +3,32 @@ ; (require sugar) (define test-data '#hash(("id" . 12) - ("name" . "butterfree") - ("sprite" . "https://raw.githubusercontent.com/PokeAPI/sprites/master/sprites/pokemon/12.png") - ("stats" - . (#hasheq((base_stat . 60) - (effort . 0) - (stat . #hasheq((name . "hp") (url . "https://pokeapi.co/api/v2/stat/1/")))) - #hasheq((base_stat . 45) - (effort . 0) - (stat . #hasheq((name . "attack") (url . "https://pokeapi.co/api/v2/stat/2/")))) - #hasheq((base_stat . 50) - (effort . 0) - (stat . #hasheq((name . "defense") (url . "https://pokeapi.co/api/v2/stat/3/")))) - #hasheq((base_stat . 90) - (effort . 2) - (stat . #hasheq((name . "special-attack") (url . "https://pokeapi.co/api/v2/stat/4/")))) - #hasheq((base_stat . 80) - (effort . 1) - (stat . #hasheq((name . "special-defense") (url . "https://pokeapi.co/api/v2/stat/5/")))) - #hasheq((base_stat . 70) - (effort . 0) - (stat . #hasheq((name . "speed") (url . "https://pokeapi.co/api/v2/stat/6/")))))) - ("types" - . (#hasheq((slot . 1) - (type . #hasheq((name . "bug") (url . "https://pokeapi.co/api/v2/type/7/")))) - #hasheq((slot . 2) - (type . #hasheq((name . "flying") (url . "https://pokeapi.co/api/v2/type/3/")))))))) + ("name" . "butterfree") + ("sprite" . "https://raw.githubusercontent.com/PokeAPI/sprites/master/sprites/pokemon/12.png") + ("stats" + . (#hasheq((base_stat . 60) + (effort . 0) + (stat . #hasheq((name . "hp") (url . "https://pokeapi.co/api/v2/stat/1/")))) + #hasheq((base_stat . 45) + (effort . 0) + (stat . #hasheq((name . "attack") (url . "https://pokeapi.co/api/v2/stat/2/")))) + #hasheq((base_stat . 50) + (effort . 0) + (stat . #hasheq((name . "defense") (url . "https://pokeapi.co/api/v2/stat/3/")))) + #hasheq((base_stat . 90) + (effort . 2) + (stat . #hasheq((name . "special-attack") (url . "https://pokeapi.co/api/v2/stat/4/")))) + #hasheq((base_stat . 80) + (effort . 1) + (stat . #hasheq((name . "special-defense") (url . "https://pokeapi.co/api/v2/stat/5/")))) + #hasheq((base_stat . 70) + (effort . 0) + (stat . #hasheq((name . "speed") (url . "https://pokeapi.co/api/v2/stat/6/")))))) + ("types" + . (#hasheq((slot . 1) + (type . #hasheq((name . "bug") (url . "https://pokeapi.co/api/v2/type/7/")))) + #hasheq((slot . 2) + (type . #hasheq((name . "flying") (url . "https://pokeapi.co/api/v2/type/3/")))))))) ; (define d (dict->list test-data)) ; or...you know...could convert from hash table to list? @@ -43,11 +43,11 @@ (define (inspector h) - (hash-map h - (lambda (k v) - (if (list? v) (display (~a "HARK! THE VALUE FOR THE KEY ~"k"~ IS A LIST \n====\n")) - (display (~a " key: " k "\nvalue: " v "\n=====\n"))))) - h) + (hash-map h + (lambda (k v) + (if (list? v) (display (~a "HARK! THE VALUE FOR THE KEY ~"k"~ IS A LIST \n====\n")) + (display (~a " key: " k "\nvalue: " v "\n=====\n"))))) + h) ;;(inspector test-data) -- cgit 1.4.1-2-gfad0