by @Jean Paul Nieto Barrios Fork
{"functions":[],"name":"VAMPIEXAM","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_00149eb9_58e3_4b13_afc7_70045ecaab78"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"nump","lengthValue2":"5","id":"id_2ee762c1_254f_4cd0_b353_b5874afcb144","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"A","lengthValue2":"5","id":"id_231c53a8_127e_4542_9397_e7a09319b409","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"zeros","lengthValue2":"5","id":"id_1ff31d41_c942_41fa_a69e_249863cdcc82","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"vapi","lengthValue2":"5","id":"id_066e7271_6834_4915_ab41_f96ef1b22fbb","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"tx","lengthValue2":"5","id":"id_3edf1f02_b7d5_41ef_956c_4c11a0ea5ce1","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"dig","lengthValue2":"5","id":"id_d024abad_967b_428d_a518_40a3f4ac61c5","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"10","tpe":"IntegerArray","name":"counts","lengthValue2":"5","id":"id_a7ff6c96_8b6a_4748_82fe_76c2273db561","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"maxcolmi","lengthValue2":"5","id":"id_97d30cc2_a722_41a3_88a7_c90ae4e7a408","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"mincolmi","lengthValue2":"5","id":"id_87436ccf_ed9d_43a1_bb48_ac844177b11a","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"numdigcolmi","lengthValue2":"5","id":"id_20679c91_d3ff_4525_8012_11d0e3755b82","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"vam","lengthValue2":"5","id":"id_3ebb7839_dda0_4d0d_9417_d24b9f1d8c75","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"nupri","lengthValue2":"5","id":"id_d5c96a8f_dd07_4924_9e7b_f57c611996e2","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Boolean","name":"comprovar","lengthValue2":"5","id":"id_c730a7ca_7faf_4ad4_8fc1_305c2cf66642","initValue":"false"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"nuseg","lengthValue2":"5","id":"id_fb678c34_5735_47f4_8fb3_8c67fd6aa291","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"cuenta","lengthValue2":"5","id":"id_c8f3f0e3_4ea2_48e5_9b39_18b044b301f8","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"primer","lengthValue2":"5","id":"id_867e6b23_3406_454a_b3f6_fe310b6bc184","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"segundo","lengthValue2":"5","id":"id_08113e49_c9aa_45af_a8bf_a506005192e2","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"se","lengthValue2":"5","id":"id_f6264482_4ba4_4c3f_b4e6_40b616461a55","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"var1","lengthValue2":"5","id":"id_624ef4e1_eb45_4975_9db2_8a9dd48b1069","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"var2","lengthValue2":"5","id":"id_fec79dac_8d23_445a_89a9_977c467eda8e","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"contador","lengthValue2":"5","id":"id_9fff702b_ed93_448e_90c5_cb38e2dd654a","initValue":"0"},{"newline":true,"@type":"Output","id":"id_f3068928_0657_451e_8e93_9c21a0c9faf2","value":"\"ingrese el numero vampiro a comprobar\""},{"newline":true,"@type":"Output","id":"id_8dc90247_0e8f_4ad7_863c_fe4980af6c09","value":"\"ingresar numero entero positivo\""},{"@type":"Input","name":"vam","id":"id_75773fc3_224e_4f52_9882_24a18f065d16","prompt":null},{"falseBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_42eced25_246e_4ce7_924b_7346364de6bc","value":"\"lea bien!!\""}],"id":"id_f881dbef_7f81_4d9d_8dce_cc7c0bf75ac7"},"trueBlock":{"statements":[{"@type":"Assign","name":"cuenta","id":"id_3031ab37_225f_400d_95ac_776be48988ec","value":"vam"},{"@type":"Assign","name":"contador","id":"id_a8f6fa03_8d9c_4445_a1a5_0bc44b333432","value":"0"},{"condition":"cuenta > 0","@type":"While","id":"id_b088233f_f6d1_4af8_bfae_0e010d5b1b03","body":{"statements":[{"@type":"Assign","name":"contador","id":"id_47651dce_4c7e_48c8_a30f_fcba63cd5f54","value":"contador + 1"},{"@type":"Assign","name":"cuenta","id":"id_3c96fe9c_3721_4f20_ae71_5bce60b9201c","value":"(cuenta - (cuenta % 10)) / 10"}],"id":"id_aeec8bb3_f4c1_47a5_a15e_72fc73b9298c"}},{"falseBlock":{"statements":[],"id":"id_59aad229_3ad2_4a72_9d0f_fae2d6a06da9"},"trueBlock":{"statements":[{"@type":"Assign","name":"numdigcolmi","id":"id_14e49e69_3b15_49f1_be86_d2ffee5f09d2","value":"contador/2"},{"@type":"Assign","name":"mincolmi","id":"id_1ef446c0_84c6_4f8b_b6c0_ca862eaf75ed","value":"real2int(pow(10, numdigcolmi - 1))"},{"@type":"Assign","name":"maxcolmi","id":"id_af0668ed_75f5_4035_b268_71245084bc34","value":"real2int(sqrt(vam))"},{"@type":"Assign","name":"vapi","id":"id_73612c37_da2a_4504_ab0f_805b073cb211","value":"false"},{"@type":"Assign","name":"primer","id":"id_7fa17194_b8b9_46da_94c3_6d020aa7eab3","value":"mincolmi"},{"condition":"primer <= maxcolmi","@type":"While","id":"id_b8c607cd_e08d_410e_9483_d040fabcf733","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_249870e1_ccfa_4334_8df6_67ee6c608e9d"},"trueBlock":{"statements":[{"@type":"Assign","name":"segundo","id":"id_39f46d3d_f766_4c5c_89f4_1969cf532d63","value":"vam/primer"},{"falseBlock":{"statements":[],"id":"id_40987118_6029_4775_8f53_2397509b5361"},"trueBlock":{"statements":[{"@type":"Assign","name":"zeros","id":"id_27cc0325_a7dc_45bd_9dd9_1ef65efbd3fc","value":"false"},{"falseBlock":{"statements":[],"id":"id_58b7b0e7_2494_4846_913f_6ad07fb04305"},"trueBlock":{"statements":[{"@type":"Assign","name":"zeros","id":"id_64f2260d_17f9_4c85_a003_066c2edf00a8","value":"true"}],"id":"id_47ae6a13_c3d3_40df_bba3_e8a9d2b8a69f"},"condition":"(primer % 10 == 0) && (segundo % 10 == 0)","@type":"If","id":"id_0281b316_8e7a_42a2_b8cd_ff7849cff104"},{"falseBlock":{"statements":[],"id":"id_70973a42_35d9_4a1e_9e68_17f83096b26d"},"trueBlock":{"statements":[{"varName":"A","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_358558ff_6749_45d3_9576_20957863fa27","body":{"statements":[{"@type":"Assign","name":"counts[A]","id":"id_528cf062_50c4_4974_bb9d_580f63bdf8a6","value":"0"}],"id":"id_a80e5773_f2e0_41a1_9313_23e7515b44de"}},{"@type":"Assign","name":"nump","id":"id_0c878bf1_ebaa_4e22_a2a9_94e032aeb503","value":"vam"},{"condition":"nump > 0","@type":"While","id":"id_b463df47_2ce2_455d_83a7_c24027eac81d","body":{"statements":[{"@type":"Assign","name":"dig","id":"id_d3f2397c_422c_4986_a21c_e9e8284d5f24","value":"nump % 10"},{"@type":"Assign","name":"counts[dig]","id":"id_4fac58c0_659f_4281_bc6a_4447b3430506","value":"counts[dig] + 1"},{"@type":"Assign","name":"nump","id":"id_dd48536c_f092_42d0_841a_de0be5985b54","value":"(nump - (nump % 10)) / 10"}],"id":"id_a1caa5ef_49ac_4d22_aca8_705775ee9ff8"}},{"@type":"Assign","name":"nupri","id":"id_4997bcd5_a187_4c48_8cbe_db1fdf2d8568","value":"primer"},{"condition":"nupri > 0","@type":"While","id":"id_80fc6d0f_7059_4f61_929e_33c6f7940d0a","body":{"statements":[{"@type":"Assign","name":"dig","id":"id_17a52b99_e100_4a2f_abb8_b94dc10f5c5e","value":"nupri % 10"},{"@type":"Assign","name":"counts[dig]","id":"id_bf6ba38c_e754_4600_9b0f_375f50a0ed45","value":"counts[dig] - 1"},{"@type":"Assign","name":"nupri","id":"id_1c208bd3_0217_4a7a_970b_0f50d5c177e3","value":"(nupri - (nupri % 10)) / 10"}],"id":"id_80fdc6dc_a31d_49f4_afd9_6b99752ace30"}},{"@type":"Assign","name":"nuseg","id":"id_bef0a5b3_cb48_4eb4_9cb9_6d9742c2ec3e","value":"segundo"},{"condition":"nuseg > 0","@type":"While","id":"id_06c92073_5960_49a9_89a3_cb31e64981cd","body":{"statements":[{"@type":"Assign","name":"dig","id":"id_76b5f570_d136_4a88_b40a_dbd7dfb4b255","value":"nuseg % 10"},{"@type":"Assign","name":"counts[dig]","id":"id_ef7bacff_178a_42b8_abea_12f51cc2c77a","value":"counts[dig] - 1"},{"@type":"Assign","name":"nuseg","id":"id_9516ce6d_7b3f_4adc_b32d_6f80f4297612","value":"(nuseg - (nuseg % 10)) / 10"}],"id":"id_ee080d69_b456_4d04_aa3a_dfec48a8178c"}},{"@type":"Assign","name":"comprovar","id":"id_221ea8d9_d7c0_483e_97df_6b82686f9c35","value":"true"},{"varName":"A","incr":"1","@type":"ForLoop","start":"0","end":"9","id":"id_3a3a2dfd_4793_4fa5_828c_bbcd971fc612","body":{"statements":[{"falseBlock":{"statements":[],"id":"id_43092db6_e9e6_4d6d_ab9c_91ebff12b74b"},"trueBlock":{"statements":[{"@type":"Assign","name":"comprovar","id":"id_89b404f7_f2da_4a7c_b170_8641a13799ea","value":"false"}],"id":"id_f1a0dac5_9e6f_4a9e_8c34_53be04a7f9e0"},"condition":"counts[A] != 0","@type":"If","id":"id_352f30bd_9fef_4900_aaca_01b0768a9582"}],"id":"id_02a8f385_3d0f_4f1b_8051_695cd842f1b1"}},{"falseBlock":{"statements":[],"id":"id_7d90c9e8_7528_463b_90ff_b6f091ffcd0e"},"trueBlock":{"statements":[{"@type":"Assign","name":"vapi","id":"id_cd91a135_4100_48f1_84d8_81c5a069ad6a","value":"true"},{"@type":"Assign","name":"var1","id":"id_606552f4_da54_4a02_a81d_45296e7e8015","value":"primer"},{"@type":"Assign","name":"var2","id":"id_fe86e032_27ef_417b_b6cc_316db71678ed","value":"segundo"},{"@type":"Assign","name":"primer","id":"id_a7241f23_70dc_4c60_9c9d_f3eb7503668b","value":"maxcolmi + 1"}],"id":"id_1941e868_b976_43b2_b013_ec7c8ca135a6"},"condition":"comprovar == true","@type":"If","id":"id_02ed94f2_2b82_4d3e_a46a_87b2b9fed67e"}],"id":"id_43b719af_e439_4d25_911b_9f09b3fd76dc"},"condition":"zeros == false","@type":"If","id":"id_f975a026_095b_49cc_b31a_7fcc0262d437"}],"id":"id_38f770d8_a8c1_495d_b3d4_9278b1473743"},"condition":"(segundo >= mincolmi) && (segundo < real2int(pow(10, numdigcolmi)))","@type":"If","id":"id_08fdc248_61d5_49c1_b94d_4f1dd44bdb2e"}],"id":"id_f1ac9089_541d_4a7d_9fa4_734aa41a4ee6"},"condition":"(vapi==false) && (vam % primer == 0)","@type":"If","id":"id_de47cb27_0734_4d7f_852a_63ec1eba4a42"},{"@type":"Assign","name":"primer","id":"id_a06e5ccd_1037_46a1_a01e_82d4cb6d2c44","value":"primer +1"}],"id":"id_1a4dcf2b_f0d5_4d3d_8e4d_09c511cb45a5"}}],"id":"id_7be00762_9691_4d88_a771_055f6f99e0ee"},"condition":"contador % 2 == 0 && contador >= 4","@type":"If","id":"id_5eb41eb0_f2bf_416c_a823_1a6614c91786"},{"falseBlock":{"statements":[],"id":"id_f35b2e90_c842_4455_99c1_90dea5565563"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_b246974b_c287_4672_9e47_e9c8aa608ccd","value":"\"el numero vamiro es \" + vam + \" estos son sus colmillos \""},{"newline":true,"@type":"Output","id":"id_a264a072_a4ac_4270_877a_a4d6ca77678b","value":"var1"},{"newline":true,"@type":"Output","id":"id_63dab369_9128_4b51_83ce_3a375ebeb756","value":"var2"}],"id":"id_ec88f024_9b75_419c_88a9_638e0cc17baa"},"condition":"vapi == true","@type":"If","id":"id_2e448f1a_501a_4c63_9720_4f427efab339"}],"id":"id_cb2e8850_5b5a_4334_a294_35e6835c2aa5"},"condition":"vam > 0","@type":"If","id":"id_365c15da_3c1c_4f63_ba0b_dcceb6ae1364"},{"@type":"Return","id":"id_8957b31e_7ac7_421f_854c_b19eb28391fe","maybeValue":null}],"parameters":[]},"id":"id_ac5ecefb_6ef7_4f4f_8f13_36a048cf6edc","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"java","showGenCode":true},"version":"0.3","revision":1506}