by @Jean Paul Nieto Barrios Fork
{"functions":[],"name":"NumeroVampiro","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_fbbbd0f7_5d03_4da6_ad51_4e81a42c0130"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"num","lengthValue2":"","id":"id_3469f5aa_066f_45d2_b139_d6fde925c0ee","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"temp","lengthValue2":"","id":"id_27570a99_c65d_4e17_8523_a2f248006654","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"numDigits","lengthValue2":"","id":"id_fe79d49b_b987_47ef_bb0d_2e3c3f49e5b1","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"half","lengthValue2":"","id":"id_3b4a4758_0e96_456e_bfe5_74a12449e904","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"minFang","lengthValue2":"","id":"id_7c1302a2_0717_495c_b5f1_c8b0e99c49ec","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"maxFang","lengthValue2":"","id":"id_8a8cb272_4aeb_43e6_b157_32a6771d7909","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"isVampire","lengthValue2":"","id":"id_25b451a1_e534_41d8_a7dd_026abf7b6e5e","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"fang1","lengthValue2":"","id":"id_9e75d70d_2c1d_401f_9b0c_8d0697d1b279","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"fang2","lengthValue2":"","id":"id_3360cf25_ca79_4738_99d3_c082fd6936f7","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"x","lengthValue2":"","id":"id_af03fb13_7000_42cc_94e8_42e7f430ef4e","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"y","lengthValue2":"","id":"id_ac769ffb_5abe_4e4d_a45c_5eb521898523","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"i","lengthValue2":"","id":"id_db8c9f91_b705_486e_ade6_f1c7d346f8a2","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"digit","lengthValue2":"","id":"id_8aca6ef6_439b_404e_bba4_c7c45cd58483","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"valid","lengthValue2":"","id":"id_d13c686d_ce94_4687_a356_5bfef3aae362","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Boolean","name":"trailingZeros","lengthValue2":"","id":"id_6a0a5532_0987_49c2_8db2_672b6849a101","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"tempNum","lengthValue2":"","id":"id_71ed9c15_21e4_4f4f_9bfb_d229634beca9","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"tempX","lengthValue2":"","id":"id_67fe7301_158e_42e9_b567_e1d6f40983ad","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"","tpe":"Integer","name":"tempY","lengthValue2":"","id":"id_41946e32_679a_4baf_a86e_938ffb72031f","initValue":"0"},{"lengthValue":10,"@type":"Declare","lengthValue1":"","tpe":"IntegerArray","name":"counts","lengthValue2":"","id":"id_f5d340ef_49b7_4e87_82ab_553ae5cb58a6","initValue":null},{"newline":true,"@type":"Output","id":"id_801b9770_7eea_4053_9b96_8220abeb6b0f","value":"\"Ingrese un numero entero para verificar si es vampiro:\""},{"@type":"Input","name":"x","id":"id_19e41fff_bda5_4ab0_bbed_d1450be53e91","prompt":null},{"@type":"Input","name":"num","id":"id_9c984ac4_1ea3_4567_9b71_29d230129f73","prompt":null},{"falseBlock":{"statements":[{"@type":"Assign","name":"temp","id":"id_070b8e21_960a_452c_9da9_ddbb4d78e0b3","value":"num"},{"@type":"Assign","name":"numDigits","id":"id_93049d63_b1ec_46d9_859e_8569b9604311","value":"0"},{"condition":"temp > 0","@type":"While","id":"id_94be91fa_b89e_4118_9412_1b28bbbfb3a2","body":{"statements":[{"@type":"Assign","name":"numDigits","id":"id_09c4525a_223b_415f_ab1f_8f9c872636fd","value":"numDigits + 1"},{"@type":"Assign","name":"temp","id":"id_58e208fa_6f6b_4915_945d_08f75b48bc01","value":"(temp - (temp % 10)) / 10"}],"id":"id_47f3fdce_a23c_4a00_be83_ae132ed155dc"}},{"falseBlock":{"statements":[{"falseBlock":{"statements":[{"@type":"Assign","name":"half","id":"id_92cba1e3_b163_4036_8c5f_8bb835d567ea","value":"numDigits / 2"},{"@type":"Assign","name":"minFang","id":"id_6128897c_10d2_45ec_84f4_cbbf57e08618","value":"real2int(pow(10, half - 1))"},{"@type":"Assign","name":"maxFang","id":"id_53e4f308_e043_47e7_915a_de3ec9c47f1c","value":"real2int(sqrt(num))"},{"@type":"Assign","name":"isVampire","id":"id_ab77efd6_fefc_41da_a528_a5a87d6f8037","value":"false"},{"@type":"Assign","name":"x","id":"id_fbe2fade_9af8_48b2_88d5_cd7c2145b474","value":"minFang"},{"condition":"x <= maxFang","@type":"While","id":"id_fae0b922_91b2_4a1e_a225_2b0f2b051101","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_5808dac6_5840_4c8a_abb7_1ead9141fc46"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_1648e935_279d_48c2_896d_7e3ffb2fca6a"},"trueBlock":{"statements":[{"@type":"Assign","name":"y","id":"id_8d7c47fe_d347_4e9d_aff0_9d539832e12b","value":"num / x"},{"falseBlock":{"statements":[],"id":"id_2b8a650b_e17c_4143_b716_b55cd888d532"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_9fcaf4a3_ce4d_4bbb_aff9_2882682457cf"},"trueBlock":{"statements":[{"@type":"Assign","name":"trailingZeros","id":"id_0a3d029e_c9a1_47a8_a6f8_39dde5cbe273","value":"false"},{"falseBlock":{"statements":[],"id":"id_7a083088_9cfa_405a_96a7_c59ee15ea6f6"},"trueBlock":{"statements":[{"falseBlock":{"statements":[],"id":"id_442e5c84_d631_449f_b2fa_469ec36f795b"},"trueBlock":{"statements":[{"@type":"Assign","name":"trailingZeros","id":"id_cde06ca0_0bd1_4d54_a32e_88822a087128","value":"true"}],"id":"id_81a0bead_bccd_4880_a3d9_074ff3188595"},"condition":"y % 10 == 0","@type":"If","id":"id_05f3772c_5368_413f_9751_0a1ccf0c6473"}],"id":"id_d3047dee_51ad_4c0d_b5b8_d7aaa95c86ee"},"condition":"x % 10 == 0","@type":"If","id":"id_3d77b034_9c10_4dc4_a38d_3d2445dcc325"},{"falseBlock":{"statements":[],"id":"id_5a73cf0a_6212_4b40_a145_c1aee6257de4"},"trueBlock":{"statements":[{"varName":"i","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_429c8b99_145b_4750_8ea8_4ad13589c224","body":{"statements":[{"@type":"Assign","name":"counts[i]","id":"id_b993db69_4d92_4d98_bd94_0da8e9430557","value":"0"}],"id":"id_4d3092dd_4210_4257_99ea_e676d2433dc3"}},{"@type":"Assign","name":"tempNum","id":"id_d7511bd8_fe4a_4d48_b664_5caf2d3474ca","value":"num"},{"condition":"tempNum > 0","@type":"While","id":"id_305545d1_b893_4bdc_ba25_b4997472ee09","body":{"statements":[{"@type":"Assign","name":"digit","id":"id_58c1c90b_6c18_4633_9403_175ebb9d4936","value":"tempNum % 10"},{"@type":"Assign","name":"counts[digit]","id":"id_c8b425ec_8c0b_43ad_98e6_91683152988c","value":"counts[digit] + 1"},{"@type":"Assign","name":"tempNum","id":"id_04c38feb_a127_4a3a_9347_0fe75fef4d84","value":"(tempNum - (tempNum % 10)) / 10"}],"id":"id_407b4108_1f61_4633_b3c0_f3bc9e1703ae"}},{"@type":"Assign","name":"tempX","id":"id_4c972b6d_35aa_4a79_b346_267ead9de7fb","value":"x"},{"condition":"tempX > 0","@type":"While","id":"id_dabd19d6_b690_44c7_b776_b5d8d7c6c3c2","body":{"statements":[{"@type":"Assign","name":"digit","id":"id_6dc68328_6cfb_4f80_a01f_b56be66d2b5a","value":"tempX % 10"},{"@type":"Assign","name":"counts[digit]","id":"id_4ef41b57_7e67_4d92_9e71_6c9dfcd42aab","value":"counts[digit] - 1"},{"@type":"Assign","name":"tempX","id":"id_9f07638c_a726_42fc_a87c_c6d830953b6d","value":"(tempX - (tempX % 10)) / 10"}],"id":"id_4eaed6c7_4dd0_43b6_9869_56f796e94bee"}},{"@type":"Assign","name":"tempY","id":"id_607622f1_3bf8_4576_970c_bf46b7bae01e","value":"y"},{"condition":"tempY > 0","@type":"While","id":"id_97e59578_38f3_4421_b5de_3666490ebabb","body":{"statements":[{"@type":"Assign","name":"digit","id":"id_ef9e9d8f_adc9_4b97_9b72_40b3f53a10be","value":"tempY % 10"},{"@type":"Assign","name":"counts[digit]","id":"id_733f9e1d_c980_4804_9e03_94d4f5f256ee","value":"counts[digit] - 1"},{"@type":"Assign","name":"tempY","id":"id_87d33bb7_f659_47a6_91e0_f01189dc921f","value":"(tempY - (tempY % 10)) / 10"}],"id":"id_b7f4032e_2e5d_4c62_a111_6b1cfbf3ec7c"}},{"@type":"Assign","name":"valid","id":"id_e38c329c_a30c_4aac_9a8e_f01184d508d5","value":"true"},{"varName":"i","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_f0f49f6f_548c_4837_9699_22d2d408ee71","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_cc13f751_cfe2_4f7c_b40d_c83e0cbc0185"},"trueBlock":{"statements":[{"@type":"Assign","name":"valid","id":"id_fc637ed3_7485_4e54_899c_b33662be4d74","value":"false"}],"id":"id_e8ec8257_6c73_4ec1_84ad_2f66390aa662"},"condition":"counts[i] != 0","@type":"If","id":"id_74b31f4f_44b0_4c29_811d_fc441634fd6b"}],"id":"id_68bf207f_ed5f_4137_b05a_01f5c152d920"}},{"falseBlock":{"statements":[],"id":"id_436424c5_8ab6_4570_9978_aa6e648754f0"},"trueBlock":{"statements":[{"@type":"Assign","name":"isVampire","id":"id_0dd7d73d_9dfd_46b9_9d4c_b8bd13e05c48","value":"true"},{"@type":"Assign","name":"fang1","id":"id_35accbbd_894c_4afd_b404_811f287f0031","value":"x"},{"@type":"Assign","name":"fang2","id":"id_605470c0_074e_441c_a6dc_71b2a6b032ba","value":"y"},{"@type":"Assign","name":"x","id":"id_68996ba7_a336_4a6a_a7eb_004269966288","value":"maxFang + 1"}],"id":"id_ed8c4082_e725_40f9_afbe_962ef613d206"},"condition":"valid == true","@type":"If","id":"id_ef4990cd_2c3b_413c_a67e_4449cf835a49"}],"id":"id_fa9f79ae_3e64_4e0d_a212_8b542af34d99"},"condition":"trailingZeros == false","@type":"If","id":"id_e99a6f34_94f8_4223_84f9_b810fcddc298"}],"id":"id_1d44a8a3_bf1f_4430_a8a5_f6a7b5be9905"},"condition":"y < real2int(pow(10, half))","@type":"If","id":"id_787ba4eb_6ed5_4132_a614_e86fde7712de"}],"id":"id_caa16a76_68f1_4fb0_ba46_18978c9b678c"},"condition":"y >= minFang","@type":"If","id":"id_d49c7061_ec6d_47aa_9546_9d45e13667d2"}],"id":"id_3aedafe5_2a27_4345_9bc2_0391c297bc26"},"condition":"num % x == 0","@type":"If","id":"id_d61d426d_cf69_4b7a_89ab_d795c86cd812"}],"id":"id_10488f3f_f078_4f57_b614_de53c0a99acb"},"condition":"isVampire == false","@type":"If","id":"id_aa6953f1_e640_4b7e_bb37_e28f3aa57387"},{"@type":"Assign","name":"x","id":"id_a1eba78a_0f22_4fee_a81e_c65de8d6a5bf","value":"x + 1"}],"id":"id_693c017d_3f1f_4c67_9585_abba237e7aec"}},{"falseBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_6d5a6bd5_8b4f_411d_8b8e_1b24cf835455","value":"\"NO es un numero vampiro.\" + num"}],"id":"id_ddb01877_b252_4f10_90f0_789ba37c16b1"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_8d667aed_55cc_405b_af34_1d35f69eb384","value":"num"},{"newline":true,"@type":"Output","id":"id_20e38d1c_22df_4e3f_8ceb_e77f7334fec7","value":"\"ES un numero vampiro! Sus colmillos son: \""},{"newline":true,"@type":"Output","id":"id_75213012_bcc0_4964_988b_6da0f64a267b","value":"fang1"},{"newline":true,"@type":"Output","id":"id_bfe678ef_b5fa_453e_a112_b924bfecc861","value":"fang2"}],"id":"id_1b85fe7b_6839_4fa9_a647_44d043027fca"},"condition":"isVampire == true","@type":"If","id":"id_81283682_7961_4d63_8fc7_6b6905f56d71"}],"id":"id_9a438f18_cbf1_4d89_962d_2a4908502e7a"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_91fc601e_eff6_4913_88c7_0405870621c2","value":"num + \" NO es un numero vampiro (debe tener al menos 4 digitos).\""}],"id":"id_3ebefc7a_eedd_4585_9b24_2ff420794112"},"condition":"numDigits < 4","@type":"If","id":"id_6056ef42_d40c_439e_a712_0aa0fa037952"}],"id":"id_0d5a2bbf_fed5_43f6_809c_68748bea8b95"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_de5de93e_20c4_4fcb_ad40_48775ea95b06","value":"num + \" NO es un numero vampiro (la cantidad de digitos debe ser par).\""}],"id":"id_0d3c6f7d_11e5_4765_9a50_1290e64ef5a5"},"condition":"numDigits % 2 != 0","@type":"If","id":"id_c087c493_fdb6_4667_bd1e_53b995a64afa"}],"id":"id_ea737be7_16dd_4fdc_a173_b3460b379dd7"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_771fdddf_d1f9_492a_9986_235cff929fd1","value":"\"El numero debe ser un entero positivo.\""}],"id":"id_cf099db6_2065_4413_8a97_4cf56b5e2631"},"condition":"num <= 0","@type":"If","id":"id_42829369_eafa_4925_97f9_21dfb537dc4e"},{"@type":"Return","id":"id_072cfdb1_5773_4856_9181_e1eb80b26b5f","maybeValue":null}],"parameters":[]},"id":"id_29c77ced_c9b7_4ea1_99fb_f0a70ab4a3c6","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"python","showGenCode":true},"version":"0.1","revision":88}