by @Yohan Estiven Arias Vasquez Fork
{"functions":[{"rawId":"fn_contar","tpe":"Integer","name":"ContarDigito","statements":[{"@type":"Begin","id":"id_v2"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"c","lengthValue2":"","id":"id_v3","initValue":"0"},{"condition":"num > 0","@type":"While","id":"id_v9","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_v7"},"trueBlock":{"statements":[{"@type":"Assign","name":"c","id":"id_v4","value":"c + 1"}],"id":"id_v6"},"condition":"(num % 10) == d","@type":"If","id":"id_v5"},{"@type":"Assign","name":"num","id":"id_v8","value":"num / 10"}],"id":"id_v10"}},{"@type":"Return","id":"id_v11","maybeValue":"c"}],"parameters":[{"tpe":"Integer","name":"num","id":"id_v0"},{"tpe":"Integer","name":"d","id":"id_v1"}]}],"name":"Numero Vampiro","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_v12"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"n","lengthValue2":"","id":"id_v13","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"k","lengthValue2":"","id":"id_v14","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"t","lengthValue2":"","id":"id_v15","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"m","lengthValue2":"","id":"id_v16","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"i","lengthValue2":"","id":"id_v17","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"inf","lengthValue2":"","id":"id_v18","initValue":"1"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"sup","lengthValue2":"","id":"id_v19","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"x","lengthValue2":"","id":"id_v20","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"y","lengthValue2":"","id":"id_v21","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"d","lengthValue2":"","id":"id_v22","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"esVampiro","lengthValue2":"","id":"id_v23","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"iguales","lengthValue2":"","id":"id_v24","initValue":"false"},{"@type":"Input","name":"n","id":"id_v25","prompt":null},{"@type":"Assign","name":"t","id":"id_v26","value":"n"},{"condition":"t > 0","@type":"While","id":"id_v29","body":{"statements":[{"@type":"Assign","name":"k","id":"id_v27","value":"k + 1"},{"@type":"Assign","name":"t","id":"id_v28","value":"t / 10"}],"id":"id_v30"}},{"falseBlock":{"statements":[],"id":"id_v69"},"trueBlock":{"statements":[{"@type":"Assign","name":"m","id":"id_v31","value":"k / 2"},{"@type":"Assign","name":"i","id":"id_v32","value":"1"},{"condition":"i < m","@type":"While","id":"id_v35","body":{"statements":[{"@type":"Assign","name":"inf","id":"id_v33","value":"inf * 10"},{"@type":"Assign","name":"i","id":"id_v34","value":"i + 1"}],"id":"id_v36"}},{"@type":"Assign","name":"sup","id":"id_v37","value":"inf * 10 - 1"},{"@type":"Assign","name":"x","id":"id_v38","value":"inf"},{"condition":"(x <= sup) && ((x * x) <= n) && (!esVampiro)","@type":"While","id":"id_v65","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_v63"},"trueBlock":{"statements":[{"@type":"Assign","name":"y","id":"id_v39","value":"n / x"},{"falseBlock":{"statements":[],"id":"id_v60"},"trueBlock":{"statements":[{"@type":"Assign","name":"iguales","id":"id_v40","value":"true"},{"@type":"Assign","name":"d","id":"id_v41","value":"0"},{"condition":"(d <= 9) && iguales","@type":"While","id":"id_v47","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_v45"},"trueBlock":{"statements":[{"@type":"Assign","name":"iguales","id":"id_v42","value":"false"}],"id":"id_v44"},"condition":"ContarDigito(n, d) != (ContarDigito(x, d) + ContarDigito(y, d))","@type":"If","id":"id_v43"},{"@type":"Assign","name":"d","id":"id_v46","value":"d + 1"}],"id":"id_v48"}},{"falseBlock":{"statements":[],"id":"id_v57"},"trueBlock":{"statements":[{"@type":"Assign","name":"esVampiro","id":"id_v49","value":"true"},{"newline":false,"@type":"Output","id":"id_v50","value":"n"},{"newline":false,"@type":"Output","id":"id_v51","value":"\" = \""},{"newline":false,"@type":"Output","id":"id_v52","value":"x"},{"newline":false,"@type":"Output","id":"id_v53","value":"\" x \""},{"newline":true,"@type":"Output","id":"id_v54","value":"y"}],"id":"id_v56"},"condition":"iguales","@type":"If","id":"id_v55"}],"id":"id_v59"},"condition":"(y >= inf) && (y <= sup) && (!(((x % 10) == 0) && ((y % 10) == 0)))","@type":"If","id":"id_v58"}],"id":"id_v62"},"condition":"(n % x) == 0","@type":"If","id":"id_v61"},{"@type":"Assign","name":"x","id":"id_v64","value":"x + 1"}],"id":"id_v66"}}],"id":"id_v68"},"condition":"(k % 2) == 0","@type":"If","id":"id_v67"},{"falseBlock":{"statements":[{"newline":false,"@type":"Output","id":"id_v72","value":"n"},{"newline":true,"@type":"Output","id":"id_v73","value":"\" no es un numero vampiro\""}],"id":"id_v76"},"trueBlock":{"statements":[{"newline":false,"@type":"Output","id":"id_v70","value":"n"},{"newline":true,"@type":"Output","id":"id_v71","value":"\" es un numero vampiro\""}],"id":"id_v75"},"condition":"esVampiro","@type":"If","id":"id_v74"},{"@type":"Return","id":"id_v77","maybeValue":null}],"parameters":[]},"id":"id_220bf37b_4da0_476b_ac9f_f113ee6a60b1","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":true,"lang":"java","showGenCode":false},"version":"0.3","revision":4}