simple.pism 454 B

1234567891011121314151617181920212223
  1. # :set syntax=pism
  2. # :source ../scripts/pism.vim
  3. constant G_SPEND FixedGenerator
  4. contract input_spend
  5. param secret Fr
  6. param ak Point
  7. start
  8. witness ak param:ak
  9. assert_not_small_order ak
  10. fr_as_binary_le secret param:secret
  11. ec_mul_const public secret G_SPEND
  12. ec_add public public ak
  13. emit_ec public
  14. alloc_binary preimage
  15. ec_repr repr_ak ak
  16. binary_clone repr_ak2 repr_ak
  17. binary_extend preimage repr_ak
  18. end