{
    "source": {
        "author": {
            "name": "Michael Hoffmann"
        }
    },
    "name": "Michael's copy of List of numbers",
    "short_name": "michael-s-copy-of-list-of-numbers",
    "description": "<p>The answer is a comma-separated list of numbers.</p>\n<p>The list is marked correct if each number occurs the same number of times as in the expected answer, and no extra numbers are present.</p>",
    "help_url": "",
    "input_widget": "string",
    "input_options": {
        "allowEmpty": {
            "static": true,
            "value": false
        },
        "correctAnswer": "join(settings[\"correctAnswer\"],\",\")",
        "hint": {
            "static": true,
            "value": "Enter a list of numbers separated by commas."
        }
    },
    "can_be_gap": true,
    "can_be_step": true,
    "marking_script": "bits:\nfilter(x<>\"\",x,split(studentAnswer,\",\"))\n\nexpected_numbers:\nsettings[\"correctAnswer\"]\n\ninterpreted_answer:\nmap(parsenumber(x,\"en\"),x,bits)\n\nvalid_numbers:\nif(all(map(not isnan(parsenumber(x,\"en\")),x,bits)),\n    true,\n    let(wrong,filter(isnan(parsenumber(x,\"en\")),x,bits)[0],\n      warn(wrong+\" is not a valid number\");\n      fail(wrong+\" is not a valid number.\")\n    )\n  )\n\nis_sorted:\nassert(sort(interpreted_answer)=interpreted_answer,\n    multiply_credit(0.5,\"Not in order\")\n  )\n\nincluded:\nmap(\n      let(\n        num_student,len(filter(x=y,y,interpreted_answer)),\n        num_expected,len(filter(x=y,y,expected_numbers)),\n        switch(\n          num_student=num_expected,\n            true,\n          num_student<num_expected,\n            incorrect(\"Your answer does not contain \"+x+\" enough times.\");false\n          ,\n            incorrect(\"Your answer contains \"+x+\" too many times.\");false\n        )\n      )\n      ,\n      x,\n      sort(list(set(expected_numbers)))\n  )\n\nall_included:\nall(included)\n\nno_extras:\nif(all(map(x in expected_numbers, x, interpreted_answer)),\n    true\n  ,\n    incorrect(filter(not (x in expected_numbers),x,interpreted_answer)[0]+\" is not in the list.\");\n    false\n  )\n\nmark:\nif(studentanswer=\"\",fail(\"You have not entered an answer\"),false);\n  apply(valid_numbers);\n  apply(included);\n  apply(no_extras);\n  if(all_included and no_extras,\n    correct()\n  ,\n    incorrect()\n  )",
    "marking_notes": [
        {
            "definition": "filter(x<>\"\",x,split(studentAnswer,\",\"))",
            "name": "bits",
            "description": "<p>The separate items in the student's answer</p>"
        },
        {
            "definition": "settings[\"correctAnswer\"]",
            "name": "expected_numbers",
            "description": ""
        },
        {
            "definition": "map(parsenumber(x,\"en\"),x,bits)",
            "name": "interpreted_answer",
            "description": "A value representing the student's answer to this part."
        },
        {
            "definition": "if(all(map(not isnan(parsenumber(x,\"en\")),x,bits)),\n    true,\n    let(wrong,filter(isnan(parsenumber(x,\"en\")),x,bits)[0],\n      warn(wrong+\" is not a valid number\");\n      fail(wrong+\" is not a valid number.\")\n    )\n  )",
            "name": "valid_numbers",
            "description": "<p>Is every number in the student's list valid?</p>"
        },
        {
            "definition": "assert(sort(interpreted_answer)=interpreted_answer,\n    multiply_credit(0.5,\"Not in order\")\n  )",
            "name": "is_sorted",
            "description": "<p>Are the student's answers in ascending order?</p>"
        },
        {
            "definition": "map(\n      let(\n        num_student,len(filter(x=y,y,interpreted_answer)),\n        num_expected,len(filter(x=y,y,expected_numbers)),\n        switch(\n          num_student=num_expected,\n            true,\n          num_student<num_expected,\n            incorrect(\"Your answer does not contain \"+x+\" enough times.\");false\n          ,\n            incorrect(\"Your answer contains \"+x+\" too many times.\");false\n        )\n      )\n      ,\n      x,\n      sort(list(set(expected_numbers)))\n  )",
            "name": "included",
            "description": "<p>Is each number in the expected answer present in the student's list the correct number of times?</p>"
        },
        {
            "definition": "all(included)",
            "name": "all_included",
            "description": "<p>Has every number been included the right number of times?</p>"
        },
        {
            "definition": "if(all(map(x in expected_numbers, x, interpreted_answer)),\n    true\n  ,\n    incorrect(filter(not (x in expected_numbers),x,interpreted_answer)[0]+\" is not in the list.\");\n    false\n  )",
            "name": "no_extras",
            "description": "<p>True if the student's list doesn't contain any numbers that aren't in the expected answer.</p>"
        },
        {
            "definition": "if(studentanswer=\"\",fail(\"You have not entered an answer\"),false);\n  apply(valid_numbers);\n  apply(included);\n  apply(no_extras);\n  if(all_included and no_extras,\n    correct()\n  ,\n    incorrect()\n  )",
            "name": "mark",
            "description": "This is the main marking note. It should award credit and provide feedback based on the student's answer."
        }
    ],
    "settings": [
        {
            "evaluate": true,
            "input_type": "code",
            "hint": "The list of numbers that the student should enter. The order does not matter.",
            "default_value": "",
            "label": "Correct answer",
            "name": "correctAnswer",
            "help_url": ""
        }
    ],
    "public_availability": "always",
    "published": true,
    "extensions": []
}