{"id":755,"date":"2025-01-30T09:39:23","date_gmt":"2025-01-30T09:39:23","guid":{"rendered":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/?page_id=755"},"modified":"2025-01-30T09:39:23","modified_gmt":"2025-01-30T09:39:23","slug":"human-problem-solving-test-2025","status":"publish","type":"page","link":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/?page_id=755","title":{"rendered":"Human Problem Solving Test 2025"},"content":{"rendered":"

Lesson to learn:<\/p>\n

;;;;;; Fractions Arithmetic\n\n\n(defun fr (numerator denominator)\n  (list 'fr numerator denominator))\n\n(defun get-numerator (fraction) (second fraction))\n\n(defun get-denominator (fraction) (third fraction))\n\n(defun times-fr (fraction-1 fraction-2)\n  (let ((numerator-1 (get-numerator fraction-1))\n\t(numerator-2 (get-numerator fraction-2))\n\t(denominator-1 (get-denominator fraction-1))\n\t(denominator-2 (get-denominator fraction-2)))\n    (fr (* numerator-1 numerator-2)\n\t(* denominator-1 denominator-2))))\n\n(defun add-fr (fraction-1 fraction-2)\n  (let* ((numerator-1 (get-numerator fraction-1))\n\t (numerator-2 (get-numerator fraction-2))\n\t (denominator-1 (get-denominator fraction-1))\n\t (denominator-2 (get-denominator fraction-2))\n\t (new-numerator (+ (* numerator-1 denominator-2)\n\t\t\t   (* numerator-2 denominator-1)))\n\t (new-denominator (* denominator-1 denominator-2))\n\t (common-gcd (gcd new-numerator new-denominator))\n\t (new-fraction (fr (\/ new-numerator common-gcd)\n\t\t\t   (\/ new-denominator common-gcd))))\n    (if (= (\/ new-denominator common-gcd) 1)\n\t(\/ new-numerator common-gcd)\n\tnew-fraction)))\n\n(defun add-all-fr (number-1 number-2)\n  \"Add accepts integers and fr-numbers\"\n  (let ((fraction-1 (cond ((numberp number-1)\n\t\t\t  (fr number-1 1))\n\t\t\t  (:else number-1)))\n\t(fraction-2 (cond ((numberp number-2)\n\t\t\t  (fr number-2 1))\n\t\t\t  (:else number-2))))\n    (add-fr fraction-1 fraction-2)))\n\t\n\t \n\n<\/pre>\n
Write Complex Numbers Arithmetic (in the very same fashion as above) according to the following article:<\/strong>
\nTutorial to Complex Arithmetic<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Lesson to learn: ;;;;;; Fractions Arithmetic (defun fr (numerator denominator) (list ‘fr numerator denominator)) (defun get-numerator (fraction) (second fraction)) (defun get-denominator (fraction) (third fraction)) (defun times-fr (fraction-1 fraction-2) (let ((numerator-1 (get-numerator fraction-1)) (numerator-2 (get-numerator fraction-2)) (denominator-1 (get-denominator fraction-1)) (denominator-2 (get-denominator fraction-2))) (fr (* numerator-1 numerator-2) (* denominator-1 denominator-2)))) (defun add-fr (fraction-1 fraction-2) (let* ((numerator-1 (get-numerator … <\/p>\n
Continue reading “Human Problem Solving Test 2025”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"_links":{"self":[{"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/pages\/755"}],"collection":[{"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=755"}],"version-history":[{"count":1,"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/pages\/755\/revisions"}],"predecessor-version":[{"id":757,"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=\/wp\/v2\/pages\/755\/revisions\/757"}],"wp:attachment":[{"href":"https:\/\/bacon.umcs.lublin.pl\/~wolsk\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=755"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}